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La REVISTA de las computadoras personales que 
interesa tanto al aficionado como al profesional 


La informática al 
alcance de todos. 


COMPLETA, 
DETALLADA, DIRECTA, 
INNOVADORA... 


Una publicación 

e clara y amena 
lectura. 
Para el aficionado, para 
el profesional. 
Técnica, diversión 
y entretenimiento. 


la revista que le dá 
a conocer el hoy 

el mañana de la 
informática. ¡Con las 
últimas novedades 
en el campo de las 
computadoras 
personales! 


¡NO SE QUEDE ATRAS! YA ESTA A LA VENTA 


Cómprela en su kiosco habitual o solicítela a: 


Bravo Murillo, 377 
Tel.7339662 
28020 MADRID 


ABO TEE MARZ 2.1586 


HACKERS,LOCOS 
POR LOS BITS 


Temidos y admirados, los hackers son 
uno de los fenómenos sociales más 
representativos de esta década. Todo 
empezó con una llamada telefónica y 
un silbido. 


ТА BE haar 


Aunque la actividad favorita de los 
hackers sea comunicarse con los 
grandes ordenadores, existen otras no 
menos interesantes, como la que nos 
propone Manuel Arana. 


20 wonaas 


Sinclair desmiente que la NASA vaya 
a comprar QLs para el transbordador 
espacial 


22 suecos 


Continúa el auge de los juegos bélicos, 
como Commando y Panzadrome, y 
surgen nuevas imitaciones de 
Ultimate, como Sweevo's World. 


APRENDIENDO 
CODIGO MAQUINA 


El Z-80 se asoma al exterior: todo 
sobre las sentencias de entrada y salida 
de datos. 


32 SUPLEMENTO QL 

La protección del software 

Cuando muchos creadores de soft para 
Spectrum ya han desistido de proteger 
sus programas, empiezan a aparecer 
complicados sistemas de protección 
para el QL. 


ICE: Iconos, ventanas y ratones 

La ültima moda informática llega al 
QL con ICE, un entorno operativo de 
iconos. 


Cuando ya conocíamos de memoria 


los comandos del Spectrum, Sinclair 
incorpora otros a su nuevo modelo. 


АА PROGRAMAS 


Para todos los gustos: aplicaciones en 
BASIC y un magnífico juego con 
gráficos tridimensionales. 


54 &SONIDOS 


Gracias al AY-3-8912, el 128 de 
Sinclair suena tan bien como las 
máquinas de la competencia. 


608605 

CODIGO MAQUINA 
Deentrada parece disparatado, pero si 
alguien desea utilizar el BASIC desde 


sus programas en código máquina, 
puede hacerlo con esta pequcña rutina. 


SERVICIO DE EJEMPLARES ATRASADOS 


Complete su colección de 


Todospectrum 


A continuación le resumimos el contenido de los ejemplares 


aparecidos hasta ahora. 


Núm. 2 - 300 ptas. 

Gráficos profesionales/Desplaza- 
miento pixel a pixel/Utilización de ru- 
tinas/Construcción del interface 
centronics/Programas de utilidad 
para microdrive/Rutina reset en códi- 
go máquina/Análisis del editor de 
textos Tasword/Interíaces рага im- | 
presoras/Programas. | 


Nüm. 3 - 300 ptas. | 
Novedades sonimag'84/Ampliando 
el Basic/Programas para ordenar 
programas/Gráficos con el VU-3D/ 
Lenguaje Forth/Archivos en micro- 
drive/Programación de un interface | 
de impresora/Programas. | 


Nüm. 4 - 300 ptas. 
De profesión: programador/Consola | 
para el Spectrum/Comparación có: 
digo máquina-Basic/Análisis progra- | 
ma contabilidad/Calendario/Pascal/ 
Programas. 


Núm. 5 - 300 ptas 
Floppys para Spectrum/Diseño asis- 
tido por ordenador/64 Caracteres 
por linea/Juego de la vida/Pascal/Asi 
hacemos las portadas/Control de 
evaluaciones/Programas. 


Nüm. 6 - 300 ptas. 
Representación de funciones/Todos 
loscaminos conducen a la ROM/Jue- 
gos/Pascal/Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: torgugas para todos/ Interrup- 
ciones del Z-80/Programas. 


Nüm. 7 - 300 ptas. 

Del 48 al PLUS paso a paso/¿Plotter 
para Spectrum?/Juegos/Libros de 
código máquina/Lápiz óptico. Pro- 
gramación del montaje/El LOGO en 
la escuela/Pascal/Floppys рага 
Spectrum/Programas. 


Núm 8 - 300 ptas. 

Amolía tu memoria... a48 K/Arquitec- 
tura: análisis del PREYME/Juegos/ 
ҒОВТН. Nociones básicas/Una clave, 
please/QL Magazine. Ultimas nove- 
dades, análisis de software, Lengua- 
jes/Aula informática con Spectrum/ 
Programas. 


Nüm 9 - 300 ptas. 

Spectrum parlanchin/Juegos/Aula 
informática con Spectrum/Analisis: 
Comercial 4/Pascal/Periféricos: Wa- 
fadrive/QL Magazine: EASEL lo mejor 
de PSION. Música con QL/Desplaza- 
miento Pixel a Pixel, aportación de 
lectores/Programas/Programer II 


Nüm. 10 - 300 ptas. 
Discos: invesdisc 200/Juegos/Dos 
programas simultáneos/Protección 
del software/Conozca extremadura, 
consulte a su ordenador/Desensam- 
blador Z-80/Sofware educativo/QL 
Magazine: novedades Informat, Hoja 
de cálculo, Ajedrez/Construya su 


propio Joystick/Pascal/programas. 


DISPONEMOS 
DE TAPAS ESPECIALES 


PARA SUS EJEMPLARES DE ZX 
(sin necesidad de encuademación) 


Nüm. 11 - 300 ptas. 

Actualidad/La otra cara del LOGO/ 
Juegos/El Spectrum habla castella- 
no/SOFTAID ayuda para Etiopía/ 
5.0.5. aqui el Spectrum/Dibujar con 
lápiz óptico/QL Magazine: Procesa- 
dor de textas. Teclas de función pro- 
gramables/Programas. 


Nüm. 12 - 300 ptas. 
Actualidad/Inteligencia artificial/Lá- 
piz óptico dk'TRONICS/Juegos/Aná- 
lisis/Bingo/Z-80 PIO/Código máqui- 
na/Análisis: — MASTERFILE/Progra- 
mas. 


Nüm. 13 - 300 ptas. 
Actualidad/Discos: Discovery 1/Jue- 
gos/Inteligencia artificial/Un nuevo 
Sistema operativo/QL Magazine: Ar- 
chive, Cartridge doctor. Aplicaciones 
comerciales/Código  máquina/Pro- 
gramas. 


Núm. 14 - 300 ptas. 

Actualidad, Spectrum 128/Cálculo 
de estructuras para ingenieros y ar- 
quitectos/HELP utilidades en micro- 
drive/Juegos/El microdrive ese des- 
conocido/Código máquina/QL Ma- 
gazine: GRAPHIC QL. Juegos. Discos 
de 720 K/Un nuevo operativo/Progra- 
mas. 


Nüm. 15 - 300 ptas. 
Actualidad/Spectrum 128/Un nuevo 
operativo/Circulos_ redondos/Jue- 
gos/Utilidades: BETA-BASIC/QL Ma- 
gazine: Introducción al SUPER BA- 
SIC. Nuevas ulilidades/Hardware: 
Puertas lógicas/Código тадиіпа/ 
Programas. 


Nüm. 16 - 300 ptas. 
Actualidad/Cinco ^ horas соп 
SCREENS/Hardware — práctico/Cál- 
culos de infinita precisión/Juegos/ 
Un nuevo operativo/QL Magazine: 
Gráficos en SUPER-BASIC. Dibujan- 
do con ratón. Archivos con Archive. 
Programa/La ültima batalla, Juego 
estratégico. 


Nüm. 17 - 300 ptas. 
Actualidad/Gráficos _ interactivos/ 
Juegos/Código máquina/Un nuevo 
operativo/Trucos de programación/ 
QL Magazine: Radiografia del QL. 
Gráficos en SUPER-BASIC/Libros/ 
Programmas. 


Núm. 18 - 300 ptas. 
Actualidad/Introducción al C/Libros/ 
Juegos/De cinta a microcinta/Visión 
panorámica de los microprocesado- 
res más comunes/QL Magazine: Co- 
Dy de grises. Microprocesadores 
68000, una familia numerosa/Curio- 
seando en la ROM/Programas. 


Para hacer su pedido, rellene este cupón HOY MISMO 
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EDITORIAL 


NOS LUEGO ELCAMBIO 


Como anunciábamos el mes pasado, 

“езе número de Todospectrum ofre- 
ce numerosas novedades. Induda- 
blemente el lector ya habrá repara- 
do en una de ellas: la portada. Desde 
sus comienzos, hace afio y me- 
dio, esta revista se distinguió por ser la única cuya 
cubierta se realizaba con un ordenador: el Spec- 
trum, como no podía ser menos. Pues bien, cum- 
plido sobradamente el propósito de mostrar las po- 
sibilidades gráficas de la máquina, creemos que ha 
llegado el momento de presentar una portada más 
elaborada y atractiva, que aporte más información 
sobre la revista. 

Además, teniendo en cuenta la lógica evolución 
de los usuarios de ordenadores Sinclair, hemos in- 
troducido cambios que afectan tanto al diseño 
como al contenido de los artículos. 

El plato fuerte de este número es un extenso 
trabajo sobre los hackers. 

Guiados por Manuel Arana, colaborador habi- 
tual de Todospectrum, nos adentramos en una de 
las actividades características de todo hacker que se 
precie: la modificación de programas. 

Y no faltan las secciones habituales de código 
máquina, lectores, actualidad, juegos y programas, 
ni artículos, como los dedicados a los nuevos co- 
mandos del 128 o al acceso al BASIC desde código 
máquina. 

Completa la revista el suplemento QL Magazi- 
ne, en el que se analizan dos temas de actualidad: 
la protección del software y los entornos operativos 
controlados por iconos, como el ICE. 

Invitamos a los lectores a que nos hagan saber 
su opinión sobre los cambios realizados y los que 
introduciremos próximamente. 


TODOSPECTRUM 


ЕБ РОКІ 


Seguramente, los 
lectores de esta 
revista han visto la 
película <Juegos de 
Guerra» u otros del 
mismo tema. Esos 
chicos algo pícaros 
y algo genios 
forman parte de una 
generación nacida 
con la proliferación 
de los 
micrordenadores. 
Se llaman asimismo 
hackers y se 
empecinan en jugar 
a comunicarse con 
otros ordenadores, 
generalmente muy 
grandes. 


E RARA EN 


E ] término hacker ha empe- 
zado a ser conocido hace 

poco debido a la aparición 
de la película «Juegos de Gue- 
rra» y a la detención por el FBI 
de algunos chicos que habían 
logrado meterse en los ordena- 
dores del Pentágono. Pero sus 
orígenes son muy antiguos, in- 
cluso anteriores a la aparición 
de ordenadores personales. 

Los auténticos orígenes de los 

hackers se pueden encontrar en 
unos dispositivos denominados 
«cajas azules». La aparición de 
éstos se debió, entre otras cosas, 
a un error de concepto de la 
compañía telefónica america- 
na, Bell (denominada hoy 
ATT). Sobre los afios cincuenta 
esta empresa realizó la planifi- 
cación de cómo iba a ser el fun- 
cionamiento futuro de toda la 
red telefónica estadounidense y 
eligió como patrón un sistema 
basado en tonos para enviar 
toda la información por la línea 
telefónica. 
Lo peor del caso es'que en un 
alarde de ingenio, publicaron 
todos los datos (tipo de infor- 
mación, duración y frecuencia 
de tonos, etc.) en un boletín de 
difusión pública. Cuando se 
dieron cuenta de su error e in- 
tentaron retirarlo, era demasia- 
do tarde. 


El primero en descubrir la 
utilidad de esto fue un chico 
ciego llamado Joe Engressia. 
Para no aburrirse cuando se 
quedaba solo en casa, solía Па- 
mar a aquellos nümeros que te- 
nían instalado un contestador 
automático y silbaba canciones 
que quedaban grabadas. Pero 
una vez, haciéndolo, el contes- 


La pelicula «Juegos 
de Guerra» logró 
impactar en los 
espectadores 
dando a conocer la 
realidad de los 
«hackers» 


tador se puso automáticamente 
en marcha y le dejó escuchar 
todos los mensajes grabados an- 
teriormente. Una rápida llama- 
да a la compañía telefónica des- 
pejó sus dudas. Había silbado 
justo el tono que le indicaba al 
contestador que reprodujese los 
mensajes. Evidentemente esto 
le incitó a seguir probando y 
comentó los resultados a todos 
sus amigos. 

Poco a poco, ya en la década 
de los sesenta y principios de 
los setenta, empezaron a surgir 
grupos de personas que en un 


afán de diversión o de ahorrarse 
dinero diseñaron dispositivos 
que emitían estos tonos y que 
por tanto les permitían jugar 
con la red telefónica. Estos apa- 
ratos se conocían popularmen- 
te como cajas azules y las per- 
sonas que los diseñaban y usa- 
ban jugarían un papel muy im- 
portante en la aparición de los 
ordenadores personales y del 
concepto hacker, aunque el 
nombre que recibían era ligera- 
mente distinto, phreakers. 

Entre toda esta gente había 
dos chicos que se acababan de 
conocer y que se habían hecho 
amigos debido a la gran pro- 
pensión que tenían ambos por 
las bromas. Ambos se llamaban 
Steven y como el lector habrá 
adivinado, sus apellidos eran (y 
son) Jobs y Wozniak. Posterior- 
mente fundarían una compañia 
de ordenadores conocida como 
Apple Computer. Con los cono- 
cimientos de uno (Wozniak) y 
la charlatanería de otro (Jobs) 
lograron obtener cierta fama y 
hacer un buen nümero de ami- 
gos entre los phreakers de la 
época. 

Uno de los amigos que hicie- 
ron se llamaba John Draper y 
era ampliamente conocido por 
sus habilidades telefónicas has- 
ta que fue detenido por el FBI y 
condenado. Posteriormente es- 
cribiría un procesador de textos 
para el Apple II y en vista de su 
relativo éxito sería contratado 
por otra compañía, pese a su 
Oscuro pasado, para hacer el 
mismo programa para un nue- 
vo ordenador personal. La 
compañía se llama IBM y el 
programa es el famoso Easy 
Writer. 

La fiebre de las cajas azules 
siguió hasta que la Bell («Ma 
Bell» como suelen decir los es- 
tadounidenses) tomó acciones 
judiciales. En ese momento y 
de resultas de estas presiones, la 
fiebre phreaker empezó a decli- 
nar. Declive que hubiera ocul- 
tado toda la historia bajo una 
capa de polvo si no fuera por- 
que a un investigador medio 


loco llamado Ed Roberts le dio 
por inventar un nuevo aparato 
llamado Altair 8800, que fue el 
primer ordenador personal pro- 
piamente dicho. 


Los primeros 
ordenadores 


Rápidamente empezó otra 
fiebre que arrastró consigo a la 
mayoria de los expertos en ca- 
jas azules a este nuevo campo 
todavía inexplorado. Estos pri- 
meros ordenadores distaban 
mucho de lo que es el ordena- 
dor personal de hoy en día. No 
tenían discos y la mayoría de 
las veces tampoco salida de vi- 
deo. Sólo unos interruptores y 
luces que permitían programar- 
los en lenguaje máquina. Por 
ello, mercado principal no fue- 
ron los negocios, sino los hob- 
bistas. En muchos casos eran 
construidos por los propios 
usuarios y los planos se distri- 
buían de un modo totalmente 
informal enreuniones y charlas. 

La gente que construía y ju- 
gaba con estos aparatos empezó 
a ser conocida como hackers, 
término no traducible pero que 
viene a significar «tipo que está 
grillado por los ordenadores». 
En general un hacker era una 
persona que se divertía jugando 
con un ordenador del mismo 
modo que los naturalistas se 
van al campo a ver animales. 
Muchos de los programas y em- 
presas famosas hoy en día su 
gieron de la unión de hackers 
para un proyecto comün. 

Un ejemplo típico lo consti- 
tuye un chico llamado Bil Ga- 
tes; en unión de varios amigos 
hizo un intérprete de BASIC, lo 
que constituyó un avance im- 
portante. Este intérprete se em- 
pezó a distribuir ampliamente y 
pronto fue lenguaje estándar. 
En vista del éxito Bill Gates 
fundó una compañía que se ha 
convertido en la importante 
casa de sofiware Microsoft. 

La paciencia y tesón de este 
gente sirvió para hacer avanzar 
la tecnología hasta conseguir 


modelos más avanzados. Casas 
más o menos grandes empeza- 
ron a interesarse en este merca- 
do (Tandyu, Atari, ctc.), y las 
pequeñas empezaron a crecer, 
como Apple. Todo esto condu- 
joa la aparición de ordenadores 
más potentes. 

A su vez los hackers unieron 
sus nuevos conocimientos a los 
adquiridos previamente con las 
líneas telefónicas y empezaron 
a comunicarse usando un apa- 
rato denominado modem que 
convierte las señales eléctricas 
del ordenador en sonidos que 
pueden ser enviados por el telé- 
fono y viceversa. Esto era po- 
tenciado por la liberal legisla- 
ción norteamericana en mate- 
ria de comunicaciones que per- 


mitía conectar cualquier apara- 
to a la red si cumplía los requi- 
sitos básicos para no dañar la li- 
nea. Rápidamente empezaron a 
surgir clubs y los denominados 
BBS (Bulletin Board Systems) 
que no eran más que ordenado- 
res con modems especiales que 
podían responder automática- 
mente al teléfono. 

Al principio los BBS eran es- 
tablecidos por los hackers en 
sus propios ordenadores ha- 
ciéndolos funcionar por la no- 
che (hora ideal en la que suce- 
den la mayor parte de las aven- 
turas informáticas) y el uso de 
la red telefónica se limitaba a 
comunicarse con los BBS, pero 
pronto las cosas empezaron a 
cambiar. 


Exploradores telefónicos 


En Estados Unidos y debido 
a la estructura de las compa- 
ñías, es bastante común que las 
empresas con grandes ordena- 
dores tengan estos conectados a 
la red telefónica normal para 
que los directivos y otro perso- 
nal puedan trabajar con ellos 
desde sus casas con un terminal 
y un modem. Esto, naturalmen- 
te, también posibilita que cual- 
quier otra persona que dispon- 
ga de los mismos materiales (o 
incluso mejor, un ordenador en 
vez de una terminal) pueda lla- 
mar al mismo número y conec- 
tarse. Evidentemente los orde- 
nadores están protegidos contra 
estos asaltantes y piden unas 
claves de acceso que son secre- 
tas, pero ya se sabe que todo lo 
que una persona ha protegido, 
otra lo puede desproteger, de 
modo que rápidamente mucha 
gente empezó a intentar meter- 
se en estos ordenadores sin per- 
miso. Este tipo de, accesos, pro- 
tagonizados por una pequeña 
minoría del colectivo Aackers, 


Uno de los principales objeti- 
vos de estos «bucaneros» son 
los grandes ordenadores, jugar 
con ellos es una de las aficiones 
más extendidas de esta comuni- 
dad y para ello se pasan horaras 
intentando traspasar las barre- 
ras que les impiden la entrada. 

Imaginemos que son las 12 
de la noche en el centro de 
cálculo de un gran banco. La 
mayoría de los programadores 
hace horas que se han ido a sus 
casas y sólo están las tres perso- 
nas encargadas de velar por el 
funcionamiento del sistema du- 
rante la noche. La mayoría de 
los días su trabajo se limita a 
comprobar que todo marcha 
correctamente y que los progra- 
mas que tienen menos priori- 


UNA CONVERSACION 
FICTICIA 


dad se ejecuten ahora que hay 
menos trabajo. 

Hasta ahora el trabajo se ha 
desarrollado con normalidad y 
una charla amigable se desarro- 
lla con el ruido de fondo de las 
unidades de disco. De pronto 
en la consola del sistema (nor- 
malmente una impresora con 
un teclado) aparece un mensa- 
je. Esto normalmente se hace 
cuando algün usuario tiene un 
problema y pide ayuda al en- 
cargado, pero a estas horas de la 
noche es muy extraño, por lo 
que los tres se acercan a mirar. 
El texto es escueto: 

ЇНОГА???? 

(El simbolo / es uno de los 
denominados promt del sistema 
y en nuestra conversación indi- 


ca algo que se imprime, asimis- 
mo el símbolo > indica que el 
encargado del sistema teclea lo 
que viene a continuación.) 

Lasorpresa es bastante consi- 
derable, este tipo de mensajes 
no es normal y menos a estas 
horas de la noche. Después de 
algunos segundos de pausa apa- 
тесе otro. 
> HAY ALGUIEN AHI? 

Por fin el encargado del turno 
se decide a contestar y teclea 
> MSG "QUIEN ES?" 

Con MSG indica que quiere 
enviar un mensaje (lo entreco- 
millado) a la otra persona. 

/ SOY UN USUARIO. Y TU? 
» MSG "SOY EL ENCAR- 
GADO DEL SISTEMA. POR 


FAVOR INDIQUE SU 
CUENTA Y QUE HACE A 
ESTAS HORAS" 


Al cabo de algunos segundos 
en los que el terminal se queda 
silencioso, aparece la respuesta. 


son los que han dado fama al 
nombre y han hecho que ac- 
tualmente se conozca como 
hacker al individuo que se in- 
troduce ilegalmente en otros or- 
denadores. Una consecuencia 
inmediata ha sido que la pala- 
bra haya perdido parte de su 
significado inicial para el públi- 
co. aunque dentro del auténtico 
grupo de entusiastas se sigue sa- 
biendo que un hacker es un 
loco por los ordenadores que es 
capaz de pasarse la noche sin 
dormir (con o sin modem) con 
tal de acabar un programa por- 
que le apetece y no tiene por 
qué hacer nada prohibido, o de 
un modo más general, aquéllos 
que trabajan con ordenadores 
porque les gusta y no por ganar 
dinero. De todos modos el resto 
de este artículo lo dedicaremos 
a aquéllos que han alcanzado la 
fama gracias a sus exploracio- 
nes prohibidas y que para dife- 
renciar de los anteriores Пата- 
remos «bucaneros». 


A la vista de lo interesante 
que podía ser un gran ordena- 


/ SOY JOHN DEL DEPAR- 
TAMENTO DE CONTABILI- 
DAD, CUENTA SCONTI, 
ESTAMOS HACIENDO BA- 
LANCE PROVISIONAL. 

Este hecho no es demasiado 
raro y ya se ha producido otras 
veces, pero en esta ocasión no 
les han avisado de que se iban a 
quedar a trabajar, por lo que 
deciden realizar una investiga- 
ción adicional. Uno de los ope- 
radores se sienta y empieza a te- 
clear órdenes rápidamente. La 
primera le muestra todas las 
cuentas (usuarios y procesos del 
sistema) que están activas en 
este momento. 
> PROCESOR STATUS 
/ NUCLEUS 0001 00:00 234 
/ MEMCON 0002 01:00 103 
/ TERCON 0005 02:01 21 
/ BATCON 0005 03:01 32 
/ SYSMGR 0020 09:02 64 
/ OPERI 0025 15:02 64 
/ BATCHI 0090 45:03 128 


dor y con el sabor de lo prohibi- 
do en la boca, muchos hobbis- 
tas se lanzaron a hacer explora- 
ciones nocturnas, sin salir de 
casa, en pos de trofeos, los or- 
denadores de las grandes com- 
pañías. 


№ Steven Jobs, 
Wozniak, Ed 
Roberts, Bill Gates y 
John Draper son 
míticos nombres 
dentro de la leyenda 
de los hackers 


Durante largas horas estos 
personajes tecleaban en sus or- 
denadores diversas combina- 
ciones que les permitieran acce- 
der a estos sistemas, ¡y a veces 
lo conseguían! Una vez dentro 
se dedicaban a investigar cómo 
era el ordenador, qué sistema 
operativo tenía, etcétera. Tam- 
bién buscaban cosas interesan- 
tes, que en la mayoría de los ca- 
sos no era la información confi- 
dencial de la empresa, sino pro- 


/ BATCH2 0090 47:03 256 
/ TEST 0030 75:02512 
/ IUCONT 0070 61:03 35 
/ СОМТІ 0070 82:02 64 

Esto les permite comprobar 
rápidamente que efectivamente 
existe una cuenta CONTI y 
que funciona de acuerdo con 
las prioridades asignadas, pero 


gramas curiosos. También uti- 
lizaban estos ordenadores para 
crear con ellos BBS para el gru- 
po de amigos. En el apartado 
«Una conversación ficticia» po- 
demos ver un ejemplo típico de 
lo que sucede cuando un hacker 
entra en un ordenador después 
de derribar sus barreras. 


«Juegos de Guerra» 


El impacto se produjo hace 
dos años con la aparición de la 
película «Juegos de Guerra», en 
la que el protagonista primero 
estaba a punto de provocar una 
guerra nuclear desde su casa 
(involuntariamente por supues- 
to) y luego lo evitaba sólo con 
sus conocimientos sobre orde- 
nadores. 

En estos últimos dos años ha 
sucedido gran cantidad de cosas 
que han traído el tema a la ac- 
tualidad. 

En primer lugar la película, 
seguida de numerosos arrestos 
por el FBI. Un ejemplo son «El 
hombre eco» (16 años), «Tres 


el otro operador se fija en algo 
muy curioso. La cuenta TEST 
se creó al instalar el sistema 
para realizar unas pruebas y 
aunque todavía existe, nadie la 
usa desde hace mucho. Además 
está consumiendo mucha me- 
moria y tiene una prioridad 
alta, por lo que decide «espiar» 
lo que hace su usuario. Se sien- 
ta ensu terminal y teclea. 
> MONITOR 8ТЕ5Т 
/ 
/ MONITOR $SYSMGR 
Esto muestra que el usuario 
de TEST está espiándoles a 
ellos, actitud nada normal, por 
lo que rápidamente decide 
echarle del sistema sospechan- 
do, y no sin razón, que es una 
persona no autorizada. 
> FORCESTEST LOGOFF 
Pero el ordenador contesta de 
un modo sorprendente. 
/ PRIVILEGE VIOLATION 


Indicando que no le está per- eee 


piedras» (15 años) y «Tio Sam» 
(17 años), todos de California, 
que con sus ordenadores logra- 
ron meterse en el mainframe de 
la compañía telefónica y obte- 
ner llamadas gratuitas a cual- 
quier parte del mundo. 

Otro caso curioso lo protago- 
nizaron cinco chicos que se lo- 
graron introducir en los orde- 
nadores de la NASA, conside- 
rados hasta entonces inviola- 
bles. 

Asimismo se han descubierto 
hechos curiosos. En Phoenix se 
descubrió a dos BBS, uno ma- 
nejado por un chico de 14 años 
apodado «Underworld» y otro 
por un profesor de escuela, 
«Casa divertida», la fórmula 
para hacer un explosivo quími- 
co. 

Aunque parece que la mayo- 
ría de estos «bucaneros» son jó- 
venes menores de 18 años, el 
retrato robot elaborado por el 
FBI indica que los más peligro- 
sos tienen alrededor de 25 años, 
ambiciosos, con una posición 
de fuerza y frustrados por no 


eeemitiendo realizar eso. Además, 


al cabo de unos instantes se re- 
cibe otro mensaje del descono- 
cido. 

/ VENIMOS EN SON DE PAZ 
SOLO QUEREMOS HA- 
BLAR. 

> MSG “NO TENEIS PER- 
MISO PARA UTILIZAR 
ESTE ORDENADOR, DES- 
CONECTAROS INMEDIA- 
TAMENTE SI NO QUEREIS 
SER DETENIDOS". 

/ NO SABEIS QUIENES SO- 
MOS NI DONDE ESTAMOS, 
ADEMAS NO PODEIS RAS- 
TREAR LA LLAMADA TE- 
LEFONICA, NO HEMOS CO- 
NECTADO POR LA RED 
TELEFONICA BANKLINK. 
NO NOS ENFADEIS. 

El encargado del sistema ad- 
quiere ciertos tintes violáceos y 
después de pronunciar algunos 
insultos irrepetibles teclea en la 
consola. 


disponer de una oportunidad 
para ejercer su talento. 

Desde entonces se producen 
casos de éstos con una rapidez 
increíble, y el Senado nortea- 
mericano ha tenido que poner- 


Perseguidos, 
acosados por la 
justicia, estos 
«locos por los 
ordenadores» 
disfrutan burlando 
los más sofisticados 
sistemas de 
vigilancia y 
protección. 


se a trabajar para sacar una le- 
gislación acorde, ya que como 
es habitual los hechos han so- 
prepasado a las leyes. 

Hay que decir que este tema 
no es particular de Estados 
Unidos; ya se han producido 
varios casos de chicos que se 
han metido en Prestel, la red de 
ordenadores de la compañía te- 


> LOGON SYSMAX ******** 

Esta es una cuenta especial 
que permite hacer absoluta- 
mente todo, y su utilización es 
restringida debido a su peligro- 
sidad. Pero antes de que puede 
teclear algo le llega otro mensa- 
16. 
/ SI NOS ECHAIS LO PASA- 
REIS MUY MAL. 

Pero nuestro hombre 
caso omiso y teclea. 
» FORCE TEST, CONTI 
LOGOFF: КІМ, ACOUNT 
CONTI, TEST 

Antes de que el ordenador 
lleve a cabo la misión que le 
han dado de destruir esas dos 
cuentas y lo que estén hacien- 
do, con lo que envía a los intru- 
sos a la calle, les llega un último 
mensaje aterrorizante: 
/ YA NOS VAMOS, PERO 
YO QUE VOSOTROS, REVI- 
SARIA EL BALANCE, PUE- 
DE QUE ESTE MAL. 


hace 


lefónica británica de uso pübli- 
co bajo suscripción. Muchos 
«bucaneros» se introducen en 
ella con códigos robados o des- 
cubiertos por el método de 
prueba y error. Ese es el caso de 
Robert Shifreen y Stephen Gold 
que fueron detenidos in fragan- 
ti. Sucesos similares han pasado 
en Francia e incluso en Alema- 
nia. 

Lo más aterrorizante del 
tema (si se quiere decir así) es 
que la edad media de estos «bu- 
caneros» no se coloca en los 
veintitantos años de un ingenie- 
ro graduado, sino que son jóve- 
nes de 17, 15 o incluso 13 y 14 
años los que protagonizan las 
mayores aventuras. No obstan- 
te se les suele considerar poco 
formados y se les intenta formar 
su personalidad. Casos notables 
de esto lo constituyen Peter 
Leppik, que después de ser 
arrestado y puesto en libertad 
condicional, ayudó a la policía 
a solucionar un problema con 
un programador (no /acker) 
que además era obseso sexual y 
tenía su diario grabado en un 
disco con un sistema de protec- 
ción especial. 

Otro caso es Bill Landreth, 
que después de ser arrestado y 
juzgado por introducirse ilegal- 
mente en el correo electrónico 
«GTEmail», ha publicado un 


libro donde indica medidas 
para protegerse de sus ex- 
congéneres. 
El Craker 


El caso de este chico es qui- 
zás uno de los más conocidos. 
Sus inicios fueron casi casuales, 
ya que el primer intento lo hizo 
con un modem prestado y con 
el nümero de teléfono de un or- 
denador que le había dado un 
amigo. Al conectarse el ordena- 
dor le pidió el nombre del usua- 
rio, el respondió DAN, a conti- 
nuación le pidió la clave de ac- 
ceso y volvió a darle DAN. En- 
tonces la máquina le dijo que 
no era válida y le rechazó. Una 
segunda prueba la realizó con 


JIN, obteniendo resultados 
idénticos. Después de esto deci- 
dió olvidarse del tema, pero an- 
tes hizo un último intento con 
LEE, cuando el ordenador le 
pidió la clave de acceso y volvió 
a teclear LEE. Su sorpresa no 
tuvo límites cuando recibió 
como respuesta el mensaje 
«CLAVE VALIDA, ВІЕМУЕ- 
NIDO AL SISTEMA». Con 
ello empezó a introducirse en 
este mundo. Al poco tiempo 
empezó a leer los BBS y tomar 
contacto con otras personas 
que se autodenominaban hac- 
kers. En conversaciones elec- 
trónicas con ellos aprendió sus 
primeros rudimentos, cómo en- 
tran en determinados sistemas, 
cómo conseguir aumentar el 
privilegio de su cuenta (que el 
ordenador le permitía realizar 
más cosas), etc. Otro apartado 
interesante era el intercambio 
de información referente a or- 
denadores, números de teléfo- 
no, claves de acceso, etcétera 
Naturalmente, eso no lo consi- 
guió de golpe. Todas estas co- 
municaciones se hacían por 
medio de BBS sin verse perso- 
nalmente y utilizando seudóni- 
mos, el suyo era «el cracker» y 
tuvo que ganarse primero la 
confianza de los demás propor- 
cionando información intere- 
sante de modo que todos pudie- 
ron ver que era de fiar. 

Poco a poco su grupo de co- 
nocidos empezó a crecer y em- 
pezó a hacer correrías con algu- 
nos de ellos. Cierto día, uno 
apodado «Alpha Hacker» le 
propuso crear un grupo de gen- 
te de fiar de modo que la infor- 
mación entre ellos pudiese cir- 
cular más libremente y con más 
seguridad. De resultas de ello 
surgió el «Inner Circle» grupo 
selecto de «bucaneros» con sus 
propias normas de conducta. 
En su decálogo existían normas 
muy estrictas que todos seguían 
a rajatabla, expulsando a los 
que nos las cumplían. Por 
ejemplo, tenían prohibido es- 
tropear cualquier información 
de un ordenador que no fuese 


suya, con lo que conseguían pa- 
sar desapercibidos y si los des- 
cubrían, que el operador del sis- 
tema no se enfadase mucho con 
ellos. 

Este punto era importante, 
ya que las reacciones de estas 
personas encargadas de velar 
por el funcionamiento del orde- 
nador era diversa. 

Estos acuerdos llegaban іп- 
cluso hasta el nivel de que el 
«Inner Circle» velaba que no se 
introdujesen otras personas en 
el sistema, liberando al opera- 
dor de mucho trabajo de vigi- 
lancia. 

Durante su largo periplo visi- 
tó más de 800 ordenadores a 
todo lo largo de Estados Uni- 
dos, conviertiéndose en uno de 
los más famosos «bucaneros» 
Su última aventura la realizó en 
la red electrónica de correo de 
la GTE. Esta es una empresa 
especializada en servicios elec- 
trónicos a sus clientes ya que t 
nía un red de ordenadores dis- 
tribuida por todo Estados Uni- 


dos que se podía usar mediante 
suscripción. 

Una vez que entraron en este 
sistema empezaron a descubrir 
que funcionaba de un modo 
distinto a los demás. Normal- 
mente no había operador del 
sistema y nuncan tenían pro- 
blemas para entrar. Esto hizo 
que muchos se envalentonasen 
y se tomasen confianzas increí- 
bles en otra situación. Dejaban 
los nombres verdaderos en si- 
tios visibles dentro de la memo- 
ria, se pasaban la dirección, etc. 
Pero la gota que colmó el vaso y 
provocó el fin de gran cantidad 
de «bucaneros» fue la carta que 
envió uno de ellos a GTE en la 
que le contaba el estado de sus 
sistemas y se ofrecía para termi- 
nar con ello si le contrataban. 
La GTE rápidamente tomó car- 
tas en el asunto y durante algún 
tiempo agentes del FBI obser- 
varon sus conversaciones elec- 
trónicas y tomaron cuidadosa- 
mente nota de todo lo que se 
decía. Un día llamaron a la 


puerta de su casa y le detuvie- 
ron a la vez que confiscaban 
todo su equipo de ordenadores 
que tenía montado. Este fue el 
fin de su historia y el de mucha 
otra gente. 


Lo que puede hacer 
un «bucanero» 


Hasta ahora hemos hablado 
mucho de la historia y de los 
sucesos de los hackers y de los 
bucaneros, pero mucha gente se 
preguntará por qué son tan pe- 
ligrosos. En primer lugar, exis- 
ten tantos tipos distintos como 
personas hay en el mundo y por 
tanto, no se pueden hacer divi- 
siones específicas. Unos sim- 
plemente curiosean en el orde- 
nador y luego se irán. Otros, los 
amantes del peligro, incitarán a 
los operadores del sistema para 
ver si les pueden coger. Existen 
además los que se intentan 
aprovechar en beneficio propio 
pero sin pretender hundir a 
ninguna compañía. Como el 
protagonista de «Juegos de 
Guerra» que se cambiaba las 
notas y hacia uso del teléfono 
gratis. 

Pero los más peligrosos son 
de otros dos tipos. Los primeros 
(que más que hackers o «buca- 
neros» son simples ladrones) 
pretenden obtener información 
que les pueda proporcionar di- 
nero aun a costa de otras perso- 
nas, como son nümeros de tar- 
jetas de crédito, ctc., y por ülti- 
mo están los que pretenden ha- 
cerse famosos y para ello des- 
truyen toda la información con- 
tenida en el ordenador y dejan- 
do un mensaje como «esto lo 
hice yo». 

Como resumen podemos de- 
cir que los hackers no son esos 
monstruos horribles devorado- 
res de ordenadores que nos des- 
criben los periódicos. Más bien 
son personas agradables que 
comparten entre sí su gran afi- 
ción por estas máquinas y dis- 
frutan programando y descu- 
briendo cosas nuevas. 


GUIA DEL HACKER 


GUN 


¿Cómo se encuentran los POKES 
necesarios para modificar un juego? 
Analizamos un caso práctico: Gunfright. | 


esde el primer momento 
en que se ve Gunfright, es 
inevitable compararlo con 
el anterior programa de Ultima- 
te Nightshade. Al igual que en 
éste, se ha utilizado la técnica 
Filmation II consiguiendo la 
misma espectacularidad en los 
gráficos y movimiento. No obs- 
tante, el objetivo del juego ha 
variado sustancialmente. Nues- 
tro héroe es un cazarrecompen- 
sas recién llegado a la ciudad 
que tiene que buscar una serie 
de pistoleros y enfrentarse con 
ellos en un duelo a muerte. Si 
consigue vencer cobrará la re- 
compensa y así podrá ir ama- 
sando una fortuna, única finali- 
dad del juego. 
AO 


START GARE 


© 1985 а.с.в. 


Mi primera partida fue un 
poco deprimente. Mientras se 
carga el programa, leo las ins- 
trucciones. Al acabar elijo la 
opción de teclado y empiezo a 
jugar con ideas poco claras so- 
bre lo que hay que hacer. Mien- 
tras consigo hacerme con los 
mandos, pierdo un par de vidas 
en sendos choques con los ciu- 
dadanos que circulan por la 
ciudad. Ya en la última vida, 
empiezo a dar vueltas por el 
pueblo. Tras largo rato, hallo 
por casualidad un pistolero. Le 
disparo y me encuentro con él 
en un duelo en el que antes de 
darme cuenta estoy muerto. 

En las siguientes partidas la 
situación no mejora mucho. Se 
tarda demasiado en localizar al 
pistolero y el duelo es tan rápi- 
do que no da tiempo a enterarse 
de cómo usar las teclas. 

Esto no podía quedar así. 
Para conseguir averiguar lo que 
hay al final de este programa te- 
nía dos caminos: dedicar mu- 
chas horas a jugar o entrar por 
la puerta de atrás y buscar to- 
dos los POKEs que facilitasen 
el objetivo. Evidentemente, ele- 
gí la segunda opción, mucho 
más apasionante. 


Instalación del monitor 


El primer paso fue instalar el 
programa en un microdrive, 


acompañado por un buen mo- 
nitor, como, por ejemplo, el 
MONS3M2. En este punto 
aparecieron nuevas analogías 
con Nightshade. La protección 
es prácticamente idéntica y am- 
bos comienzan en la dirección 
5E00, aunque por problemas 
de espacio en memoria son car- 
gados en 6000. A continua- 
ción elegí la dirección de me- 
moria en la que iba a cargar el 
monitor. La 58000 viene bas- 
tante bien en esta ocasión, ya 
que es usada por el programa 
como área de trabajo para la 
construcción de los gráficos, 
con lo que podemos tener el 
monitor ahí, realizar cambios 
en el programa y luego lanzar- 
lo. El único inconveniente es 
que no se puede volver al moni- 


№ Poralguna extraña 
razón, el número de 
vidas iniciales es 
mayor del 
necesario 


tor, ya que es destrozado en el 
momento en que se lanza el 
programa. Por último, escribí 
un cargador que colocara todo 
el sistema en memoria. Ya esta- 
ba preparado para abordar е! 
análisis del programa. 


El bucle principal 


Lo primero que se localiza es 
el bucle principal. No es muy 


largo, pero está lleno de llama- 
das a subrutinas. Curiosamen- 
te, un único bucle controla las 
tres fases del juego. Debe haber 
una variable que determine en 
cuál de ellas estamos. 

El primer POKE que hay que 
buscar es el de vidas infinitas. 
El procedimiento consiste en 
tratar de encontrar en qué pun- 
to se inicializa una variable con 
el valor 2 ó 3, las vidas iniciales 
más las que estamos utilizando, 
y después ver cuándo se decre- 
menta este dato. La asignación 
inicial de esta variable debe ha- 
cerse en alguna de las rutinas 
que son llamadas antes de en- 
trar en el bucle principal. Sin 
embargo, buscando en esta 
zona no encuentro nada. Sólo 
en una ocasión se coloca un 4 
como valor inicial de una varia- 
ble. Este es un dato raro y prue- 
bo a cambiarlo por un 5. Con el 
cambio, consigo una vida más. 
Por alguna extraña razón que 
luego descubriría, el número de 
vidas iniciales es mayor del ne- 
cesario. 

Buscando en qué punto se 
decrementa el nümero de vidas, 
encontré que en varias ocasio- 
nes es incrementado. Esto, en 
principio, parece indicar la po- 
sibilidad de conseguir vidas ex- 
tras, y sin embargo, no es así. 
Pruebo a anular el punto en 
que se decrementa el nümero 
de vidas. La primera sorpresa al 
ponerme a jugar es que ahora 
cuento con cinco vidas. Me 
dejo matar y el nümero de vidas 
no disminuye. Todo parece ir 
bien. Encuentro al pistolero, le 


disparo, me mata en el duelo y 
el programa se destruye. Algo 
ha funcionado mal. Analizando 
el programa descubro la expli- 
cación: al pasar del duelo rápi- 
do al pueblo, el número de vi- 
das es incrementado y luego de- 
crementado. Al haber anulado 
el punto en que se decrementa, 
el número de vidas crece ilimi- 
tadamente y al pasar de 5 el 
programa se hace un lío y se 
destruye. Existen dos opciones 
para solucionar el problema: 
anular todos los puntos en que 
se modifican las vidas o volver a 
inicializarlas cada vez que de- 
ban ser reducidas. Utilicé la úl- 
tima opción. 

Con esto ya se pueden jugar 
partidas infinitas sin que nos 
maten, pero sigue siendo pro- 
blemático encontrar al pistole- 
ro, sobre todo cuando descubro 
que algunos van a caballo y es 
difícil alcanzarlos. El siguiente 
objetivo es lograr saber en todo 
momento dónde está el pistole- 
ro y dónde estamos nosotros. 
Volvemos a la lucha' con el có- 
digo máquina. 

Analizando la rutina donde 
se nos da a elegir entre las dis- 
tintas opciones, aprendo a usar 
las subrutinas de impresión en 
pantalla. Por otro lado, el inter- 
erir el bucle principal para que 


ejecute continuamente nuestra 
propia rutina no presenta de- 
masiados problemas. Lo único 
que queda por localizar es la di- 
rección en la cual se guarda 
nuestra posición dentro del 
mapa y la del pistolero. 

Dentro del principal, existe 
un bucle que se ejecuta 15 veces 
y en el que se va variando el va- 


La información de 
cada objeto se 
guarda en 16 bytes, 
en los que se 
codifica desde la 
pantalla en la que 
están hasta la 
velocidad 


lor del registro IX y llamando a 
una rutina distancia en función 
del dato (IX40). Esto corres- 
ponde con los quince objetos en 
movimiento que el programa 
puede controlar. La informa- 
ción de cada objeto se guarda 
en 16 bytes, en los que se codifi- 
ca el tipo de objeto, la pantalla 
en la que está, la posición den- 
tro de la pantalla, la dirección 
en la que se mueve, la veloci- 
dad, etc. Esta información pue- 
de referirse a los ciudadanos, 


las tres balas, el pistolero, noso- 
tros mismos o cualquier otra 
cosa que se pueda mover. 

Después de varias pruebas, 
logro descubrir cuáles de los 15 
bloques son los que nos intere- 
san, y también que los datos de 
la pantalla en que se encuentra 
corresponden a (IX42) e (1X+4). 
Con todo esto ya se puede escri- 
bir la rutina que nos informa en 
todo momento de las posicio- 
nes en el mapa. 

Esto facilita bastante el con- 
seguir avanzar en el programa y 
enfrentarnos con los 20 pistole- 
TOS distintos con que cuenta 
(después se van repitiendo los 
cuatro ültimos). De todas for- 
mas, los ültimos se mueven 
muy rápido y es difícil toparse 
con ellos. Además, todavía hay 
que sufrir el duelo rápido, igual 
que al principio, con grandes 
probabilidades de perder. Que- 
dan muchos POKEs que en- 
contrar. Uno bastante intere- 
sante es el que evita que se 
mueva el pistolero. Con este 
objetivo me vuelvo a sumergir 
en el programa. Tras una bús- 
queda en las rutinas que con- 
trolan cada uno de los objetos 
móviles, descubro una rutina 
que desplaza un objeto en fun- 
ción del dato que se le pasa en 
el acumulador. El primer inten- 


PROGRAMA 1 


10 LOAD ""CODE : LOA: 
PAPER О: INK О: LOAD 
ANDOMIZE USR 24576: FRINT AT 18, 


Оф: LOAD ""CODE : LOAD ""CODE 
20 РОКЕ 23446,201: RANDOMIZE U 
SR 23424: PDKE 


ZQ РОКЕ 51544, 


РОКЕ 42255, 
о 


100 


REM Comienzo de los POKES 
RANDOMIZE USR 23446 


ORDENADORES 

% QL - AMSTRAD - SPECTRUM 
PROGRAMAS 

e Contabilidad QL .. 20.000 ptas. 
* Nóminas QL ..... 25.000 ptas. 


World- Micro sa. 


DOCTOR 


PROGRAMA 2 

10 LET n=61440: RESTORE 

ЗО FOR і-1000 TO 1140 STEP 10 

40 READ a$,a: LET s=0 

SO FOR j-1 TO LEN a$-1 STEP 2 

60 LET d-16X*(CODE a$(;)—48—7x*( 
a$(3)>"9"))+CODE а$(;+1)-—48-7% (а 
$C;t1)5"g") 

70 POKE n,d: LET n=n+1: LET s= 
s+d: NEXT j 

НО IF s<>a THEN PRINT "Error 
en la linea ";i: STOP 

90 NEXT i 


100 RANDOMIZE USR 61440 
1000 DATA "DD210048110008zEFFZ7C 
D560530F1DD210053811000Z3EFF37CD&5 
60550210021", 2881 
1010 DATA "0060110C1B3EFF37CD560 
530F1CD0060DD?100601 100803EFF37C 


/ Avda del Mediterraneo, 7 
Tels 251 12 00 y 251 12 09 - MADRID 7 


РОКЕ48121,33: 


TABLA 1 

РОКЕ 49746,54: Vidas infinitas 

РОКЕ 49747,2: 

РОКЕ 49748,0: 

РОКЕ 43387,201: Todo gratis 

РОКЕ 43927,0: 2 Caballo cerca 

РОКЕ 43168,Х: Número de bolsas iniciales 

РОКЕ 48528,Х: Número de bolsas еп bonos 

РОКЕ 49772,Х: Velocidad 

POKE 51997,X: 

POKE 47654,167: Pueblo desierto 

POKE 47427,0: Los ciudadanos no mueren 
por las balas 

POKE 47437,24: Se puede atropellar 

POKE 48116,24: Pistolero parado en duelo rá- 
pido 

POKE 48121,195: Desenfunda enseguida 


No desenfunda 


to consiste en colocar una ins- 
trucción RET al principio dc 
una rutina. El resultado no es 
muy satisfactorio, el pistolero 
probablemente no se moverá, 
pero no lo puedo comprobar 
porque yo mismo no me puedo 
mover. La rutina es llamada 
cuatro veces en el programa y 
anulando cada una de ellas por 
separado se consiguen resulta- 
dos mucho mejores. La primera 
de ellas congela al pistolero, la 
segunda a los ciudadanos, la 
tercera deja las balas colgando 
en el aire esperando a que al- 
guien se tropiece con ellas, y, 
por ültimo, la cuarta llamada 
nos congela a nosotros mismos. 


POKE 51588,201: Las balas se clavan en la pa- | Un POKE рага 

red los ahorradores 
POKE 46570,62: El pistolero no se mueve por Mucho antes de todo esto 
POKE 46571,0: el pueblo había encontrado un POKE 
РОКЕ 46572,0: I bastante útil si queremos conse- 
POKE 47383,62: Los ciudadanos no se mue- guir muchos puntos. Con él, se 
POKE 47384,0: ven logra que todo sea gratis. Lo en- 
РОКЕ 47385,0: contré porque está en una ruti- 
POKE 52415,62: Las balas quedan colgadas en na que se llama durante la ini- 
POKE 52416,0: elaire cialización del programa. Tam- 
РОКЕ 52417,0 ү 1 bién en esa zona encontré otro 
POKE 46555,24: El pistolero es inmortal POKE que permite controlar e 


* número de bolsas de dinero que 
aparecen en la primera fase, y 


el del resto de los bonos. 


DS60530F1DD", 3083 

1020 DATA "21805B112B003EFF237C0D5 
60530F121415B36C9CD8OSBAF3273A32 
15ВС736Е921",3372 

1030 DATA "005B22E3432179F011005 
B016401EDB0214C5B2291A3C3005E3A6 
7A2A720243E", 2983 

1040 DATA "460801BO8E213DSO3A7DA 
2CDC2D23A7FA2CDC2D2217D503ABDA2C 
DC2D23ABFA2", 4148 

1050 DATA "CDC2D23EF7DBFE1FD27CA 
31F38053E01320AA21F380CDD2100401 
1001B3EFFCD",3279 

1060 DATA "Có604C3EECOCD7SAB1EOOC 
DCCD62102403E43FSCDE1ADF13CFE473 
BF52E5228F 4552 

1070 DATA "2152CO36FA233645233. 
0ES21264011EDSBCDDODACDZZ2SCE!Z8O 
836002B3602",3273 

1080 DATA "2B3636217BA73670E521C 


&4011FFSBC 
EORS25CCO 45512 

1090 DATA "1DC9216448110C5CCDDOD 
4CDZ25CZBOB8ZE15z26CCOZ71DC9214DE 
73I628ES2104",2970 

1100 DATA "501117S5CCDDODAC: 
13802351821F9B936CAES218A50 
CCDDODACDZ2", 3772 

1110 DATA "SCE1D83621C9475649444 


OD4CD325CE 1380236093 


CE 
1235 


15320494C494D4954414441520046544 
F444F204752", 2501 
1120 DATA "4154495200454142454C4 


55241444F00444154524F5045404C0415 
200434E4F20",2096 

1130 DATA "444553454E46554E44410 
OAFDEFE2FE51F20F83E7FDBFEZFE61F2 
80811605CCD",3397 

1140 DATA "D3D437C93EFDDEFERFEG61 
F28E6115C5CCD9BARA7C920334900204 
E4F00",3521 


ya puesto sobre la pista busqué | 


Otra rutina interesante para 
nuestros POKEs, que fue des- 
cubierta por casualidad, es la 
que controla si un objeto está 
cerca de nosotros (o por lo me- 
nos eso creo que hace). Anulán- 
dola, conscguí que la ciudad ез- 
tuviera desierta; nos quedamos 
a solas con el pistolero, pero no 
somos inmortales frente a él, 
como cabría esperar. 

El control de la velocidad a la 
que nos movemos lo lleva una 
variable que es modificada tres 
veces en el programa: la prime- 
ra cuando empieza la partida, 
la segunda cuando cogemos un 
caballo y la ültima cuando lo 
dejamos. Los valores normales 
son 0A cuando vamos a pie y 

12 a caballo. Sin embargo, po- 
demos darle cualquier otro va- 
lor, aunque los superioresa 17 


тт 


ZIIIITIIIIIII 


harán que seamos tan rápidos 
que atravesaremos las paredes 
sin enterarnos, con lo que aca- 
baremos saliéndonos del mapa, 
lo que provocará una progresi- 
va degeneración de los gráficos 
que acabará por destruir total- 
mente el programa. 


№ El control de la 
velocidad lo lleva 
una variable que es 
modificada tres 


о ев él quien la pierde. РО- 
KEando aquí, conseguiremos 
sobrevivir siempre a los encon- 
tronazos. 

Por último, queda el proble- 
ma del duelo rápido. La forma 
de localizar los POKEs fue a 
través de las variables que con- 


El otro punto del programa veces en el trolan en qué fase del programa 
se diferencia si vamos a pieo a programa estamos. Una vez localizada la 
caballo, para saber si al atrope- rutina de movimiento del pisto- 
llar a alguien perdemos la vida lero, vi que realizaba un test de 

PROGRAMA 3 

10 CLEAR 25000: LET п-25025: R 1040 DATA "O10101010101010101010 
ESTORE 10101010101" 

ЗО FOR i-1000 TO 1120 STEF 10 1050 DATA "O10101010101010101010 

40 READ a$ 10101010101" 

50 FOR j-1 TO LEN a$-1 STEF 2 1060 DATA "O10101010101010101010 

60 LET d-16*(CODE а%(;)-48-7%( 10101010101" 
a$(5) »"9"))*CODE a$(j*1)-48-7*(a 1070 DATA "010101010101010101010 
$(jr1)0"9") 10101010101" 

70 POKE m,d: LET n=n+1: NEXT j 1080 DATA "O10101010101010101010 

90 NEXT i 10101010101" 

100 SAVE "MAPA"CODE 25025,224: 1090 БАТА "010101010101010101010 
STOP 10101010101" 

1000 DATA "01000B000001010101010 1100 DATA "010101010101010101010 

10101010101" 10101010101" 

1010 DATA "010002111901010101010 1110 DATA "010101010101010101010 

10101010101" 10101010101" 

1020 DATA "010000000001010101010 1120 DATA "010101010101010101010 

10101010101" 10101010101" 

1030 DATA "010C04001001010101010 1120 DATA "010101010101010101010 

10101010101" 10101010101" 


dos de sus parámetros y des- 
pués un salto condicional. Sólo 
había que probar para qué ser- 
via ese salto. El primer intento 
consistió en hacer que fuese in- 
condicional. De esta forma el 
pistolero desenfunda en el mis- 
mo momento en que se encuen- 
tra frente a nosotros. Resulta 
curioso como entrenamiento. 
Lo siguiente era anular el salto, 
y con esto se consigue que el 
pistolero no desenfunde nunca, 
únicamente se mueve. 

Todos estos POKESs los te- 
néis en la tabla 1. Para utilizar- 
los tenéis que teclear el progra- 
ma 1 introduciendo entre las lí- 
neas 100 y 1000 los POKEs que 
queráis. El programa 2 es un 
cargador en el que se han in- 
cluido los POKEs más ütiles, la 
rutina que nos da nuestra posi- 
ción y del pistolero, y tres teclas 
que nos permiten distintas op- 
ciones: 


1. Aborta la partida. 


2. Mata al pistolero aunque 
no esté en la pantalla. 


3. Saca una copia de panta- 
lla en casete. 


Las copias de pantalla se sa- 
can sin cabecera, para no alar- 
gar el programa. Para cargarlas 
se utiliza la cabecera de cual- 
quier pantalla. 


El mapa 


Sólo queda por comentar la 
forma en que logré encontrar el 
mapa y cómo está codificado. 
Durante la büsqueda de los PO- 
KE's no había encontrado nin- 
guna referencia a él. Pensando 
en el parecido con Nightshade 
intenté buscarlo en la misma 
dirección, pero no estaba allí. 
Sería demasiado fácil. Sin em- 
bargo, sí estaba codificado de la 
misma forma, y eso fue lo que 
me dio pie para encontrarlo. El 
mapa está almacenado por co- 
lumnas, con un byte por panta- 
lla que se puede codificar de va- 
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Мара Original 
Codificación de 
Pantallas y nuevo 
mapa del hacker. 


rias formas, esto no es así, pues- 
to que los gráficos siempre son 
distintos. El total hay 16*16 
pantallas, pero las filas y co- 
lumnas primera y última están 
llenas de 01 para marcar los lí- 
mites del mapa, con lo que que- 
da reducido a 14*14, Una vez 
descubierto esto, introducir un 
nuevo mapa no presenta dema- 
siados problemas. El programa 
3 es un ejemplo de ello. Cada lí- 
nea de DATAs representa una 


columna del mapa (quitando la 
primera y última). Para intro- 
ducir el mapa, ejecuta el pro- 
grama 3 y guarda en una cinta 
el código resultante. Luego car- 
ga el programa 1 y pone en la 
zona de POKEs la línea LOAD 
“MAPA” CODE. Por último, 
carga el programa y después el 
mapa. El de este ejemplo 
se ha hecho de 4*4 para que sea 
más fácil encontrar al pistolero. 

Manuel Alana 


CP/M PARA 


SPECTRUM 


Timex Portugal se dispone a 
lanzar próximamente un 
completo sistema de disco 
destinado al Spectrum 
Constituido por dos drives 
para discos de 3 pulgadas 
(formato utilizado por 
Amstrad), un microprocesador 
Z-80 y dos ports de impresora, 
incluye el conocido sistema 
operativo CP/M 

Los proyectos de Timex no 
acaban ahí, pues tienen 
prevista la comercialización de 
un teclado profesional que, 
conectado a la unidad de 
discos, reemplaza al Spectrum 
y convierte-al conjunto en un 
nuevo ordenador. 

Como comentábamos el mes 
pasado, Sinclair también está 
trabajando para incorporar 
CP/M al Spectrum, aunque 
afirma que no estará 
disponible hasta el 
lanzamiento de su ordenador 
portátil 


Sinclair vende la 
televisión de bolsillo 
a Timex 


Los derechos de 
comercialización y 
distribución de la 
televisión de bolsillo de 
Sinclair han sido 
adquiridos por Timex, 


Challenger: 
la NASA sustituirá 
sus ordenadores 
en1987 


Los ordenadores que 
controlan la lanzadera 
espacial, construidos 
por IBM a mediados de 
los 70, han quedado 
desfasados en 
comparación con los 
actuales. 

Para aumentar la 
seguridad del 
transbordador espacial, 
cuatro de las cinco 
máquinas de a bordo 
trabajan en un sistema 
operativo de IBM, 
mientras la quinta 
utiliza un sistema con 
las mismas 
especificaciones pero 
escrito por otra empresa. 


empresa que se encargó 
de su construcción desde 
el momento de su 
lanzamiento. 

No obstante, Sinclair 
Research continuará 
investigando en su 
cuartel general de 
Cambridge la tecnología 
de la pantalla 

plana. 


SINCLAIR 
CONSERVA EL LIDERAZGO 


DEL MERCADO 


Durante 1985, Sinclair se man- 


Club de 
usuarios de QL 


A finales del pasado afio se 
constituyó en Zaragoza el «Club 
español independiente de 
usuarios del QL» (QLAVE), con 
el propósito de servir como 
medio de unión, información y 
comunicación de los usuarios de 
QL españoles e 
hispano-hablantes. Quienes 
estén interesados en ponerse en 
contacto con QLAVE pueden 
dirigirse a: 

Serafín Olcoz Yanguas 

Baltasar Gracián, 21, 1 Cto. 
50005 Zaragoza 

También en Madrid existen 
iniciativas encaminadas a la 


tuvo como líder indiscutible del 
mercado británico de ordenado- 
res domésticos, con un porcenta- 
je del 37 por 100 sobre el total de 
ventas. Por debajo se encuentran 
Commodore, Amstrad y Acorn, 
con cifras muy inferiores. 


creación de un club de usuarios 
de QL del que esperamos poder 
ofrecer más información en 
próximos nümeros. 


¿Qué pasa con 
el Atari 520 ST? 


Nunca una máquina con unas 
criticas iniciales tan 
favorables ha pasado tan 
desapercibida como el Atari 
520 ST En nuestro pais 
apenas se ha oído hablar de 
él таз sus breves apariciones 
enel Sonimag y el SIMO. 
Tampoco Investrónica, su 
distribuidor oficial, hace 
demasiado para darlo a 
conocer. 

Delos dos programas que en 
principio estaba previsto 
entregar junto a la máquina, 
Gem Write y Gem Draw. 
nunca más se supo. Al 
parecer. han sido sustituidos 
por First Word, un procesador 
detextos de GST (empresa 


que ha realizado algunos 
programas para el OL) y DB 
Master One, base de datos de 
DB Master. 

El sistema operativo TOS y el 
GEM, que, según el fabricante 
se incluían en memoria 
ROM, se sigue entregando en 


diskette y al parecer todavía 
con abundantes bugs 

El problema que afecta al 520 
ST parece el mismo que 
estuvo a punto de acabar con 
el QL hace apenas unos años 
lanzamiento prematuro y 
escasez de software. 


COMMANDO 


ZAFIRO 


SPECTRUM 48K 


Aunque el tema no es original, 
pues el cine lo ha explotado ya 
hasta la saciedad en películas 
como Rambo, Acorralado y el 


mismísimo Comando, el juego es 
sencillamente sensacional. Quien 
coja el joystick y se siente frente al 
televisor comprenderá rápidamen- 
te el alcance de esta afirmación 
cuando se dé cuenta de las horas 
que Commando le ha enganchado 
a su silla. 

Sus gráficos, color, movimiento 
y sonido aprovechan al máximo 
las características del Spectrum, 
logrando importantes cotas de 
adicción al colocarte continuamen- 
te en situaciones límites. Sólo tu ha- 
bilidad y destreza en el manejo del 
joystick conseguirán sacarte de 
apuros durante los enfrentamien- 
tos con las fuerzas enemigas. 

Para EN la misión cuen- 
tas con un fusil ametrallador y 
bombas de mano, de gran utilidad 
frente a los enemigos parapetados 
en trincheras y los vehículos blin- 
dados. Las balas a tu disposición 
son ilimitadas, pero no así las gra- 
nadas, por lo que tendrás que reco- 
ger las que encuentres еп el cami- 
no, procurando no quedarte en 
ningün momento sin ellas. 

En la línea de los clásicos juegos 
de arcade, en los que todo es ac- 
ción, Commando es indudable- 
mente uno de los mejores progra- 
mas de Elite y también de Zafiro, 


laempresa que lo distribuye en Es- 
pafia. 

Si te encuentras preparado para 
tu bautismo de fuego, isuerte en el 
combate! y... ial ataque! 


SWEEVO'S 
WORLD 


GARGOYLE GAMES 
SPECTRUM 48 K 


Conocida por sus brillantes jue- 
gos de aventuras, como Tir Na 
Nog, Dun Darach y Marsport, 
Gargoyle Games entra en el terre- 
то de los juegos de arcade con 
Sweevo's World. 

Caracterizado por una imagina- 
ción sin límites en cuanto a las si- 
tuaciones y personajes que apare- 
cen en la pantalla, los gráficos tri- 
dimensionales y la animación de 
Sweevo's World son muy pareci- 
dos a los Knight Lore y otros pro- 
gramas de Ultimate realizados con 
la técnica Filmation. 

El protagonista de la historia, el 
robot Sweevo, ha de viajar por los 
cuatro mundos que componen el 
juego recogiendo diversos objetos. 
Aunque en la pantalla de carga 
aparece la imagen de Stan Laurel 
«el flaco», Sweevo по se parece de- 


masiado al famoso actor cómico 
americano, sino más bien a ET. 

Existen cuatro puntos de partida 
para la aventura, seleccionables 
por el jugador, que corresponden a 
Otros tantos mundos diferentes: 
Totalmente Libre, Pino Solitario, 
Dedos y Tarta de Manzana, a los 
que se llega tras un descenso en pa- 
raguas. А partir de ese instante, vi- 
viremos las situaciones más sor- 
prendentes que podamos imagi- 
nar. Las numerosas pantallas que 
forman el juego hacen imprescin- 
dible la utilización de un buen 
mapa. 

Comparable a los mejores juegos 
de Ultimate, Sweevo's World es un 
magnífico programa que desgra- 
ciadamente, al menos que nosotros 
sepamos, todavía nadie distribuye 
en España. 


Proteja su ordenador y manténgalo 
como nuevo con esta práctica 
funda de teclado transparente 


Servicio 
especial 
para nuestros 
lectores — T 
y amigos + 


RECORTE У ЕММЕ HOY MISMO ESTE CUPON А: 
PUBLINFORMATICA, C/BRAVO MURILLO, 377 5: А 28020 MADRID 


APROVECHE ESTA OPORTUNIDAD 
Y BENEFICIESE DE UN 30 % 


DE DESCUENTO SOBRE SU 
PRECIO NORMAL DE VENTA 


JUEGOS 


SCRIZAM 


DINAMIC 
SPECTRUM 48K 


Dinamic nos presenta SGRI- 
ZAM, una increíble aventura futu- 
rista que nos traslada al siglo 
XXV. En ella tenemos dos grandes 
objetivos que alcanzar: cl primero 
recuperar las riquezas del palacio 
imperial que fueron robadas por 
los guerros del planeta Kindos y el 
segundo rescatar a la joven prince- 
sa Doxaphin. Si conseguimos los 
dos objetivos, el Emperador nos ha 
prometido la mano de la princesa 
y la mitad del tesoro robado. Sólo 
disponemos de tres vidas y la me- 
jor espada del imperio, SGRI- 
ZAM. 

Nuestro guerrero se adentrará en 
el castillo de los Kindos, donde de- 
berá esquivar toda clase de anima- 
les y objetos que se interpongan en 
su camino, ya sea saltando sobre 
ellos o agachándose. También en- 
contrará guerreros guardando el 
castillo, así que tendrá que comba- 
tir contra ellos utilizando la gran 


ә 


ien 


espada. Cuando haya recorrido 
una parte del largo pasadizo, pasa- 
rá a la fase siguiente. La dificultad 
aumenta con las diferentes frases y, 
especialmente al alcanzar el pri- 
mer objetivo. 

Los gráficos son sin duda la 
principal atracción del juego, aun- 
que no dan demasiada importan- 
cia al decorado y se centran princi- 
palmente en la definición de los 


guerreros. Los movimientos son 
muy elementales. 


PANZADROME 


ARIOLA SOFT 
SPECTRUM 48K 


Conducir un tanque indudable- 
mente no es tarea fácil, y la cosa se 
complica aún más cuando debes 
enfrentarte en el laberinto de la 
ciudad con una nutrida muestra de 
elementos bélicos que acosan, ata- 
can y destruyen tu vehículo. 

Baterías de artillería disparando 
a mansalva, tanques apareciendo 
por todas las direcciones y calles 
estrechas son las mayores dificul- 
tades que podemos encontrarnos. 

El juego comienza con una pan- 
talla de presentación curiosa, pero 
nada brillante, donde se muestran 
las distintas partes del vehículo y 
el armamento que posee como do- 
tación. 

Con este armamento, tendrás 
que enfrentarte a las dificultades 
ya mencionadas, partiendo desde 
tu base. 


suelo por donde no es posible pa- 
sar, pudiendo en ocasiones quedar 
cercados. 

Desde un punto de vista técnico, 
si bien los gráficos de la ciudad y el 
movimiento son dignos, no apor- 
tan nada extraordinario al software 
que existe en el momento, quedán- 
dose por debajo del refinamiento 
de los programas actuales, tanto 
bélicos como laberínticos, donde 
las tres dimensiones son condición 
necesaria en un programa de cali- 
dad, hecho que en este caso no se 
produce. 

Tampoco el sonido es fuerte, así 
como deja bastante que desear la 
E presentación e instrucciones adi- 
SCANNER speros 1 cionales, que por descontado se 
encuentran en inglés, todo un de- 
talle ahora que por fin «somos eu- 
гореоз». 

En resumen un programa, пог- 

Mucho cuidado con los disparos уаг45 que si te disparan y по acier- malito cuyo adjetivo más apropia- 
enemigos en tu recorrido. Obser- tan, producen una explosión en el do sería el de vulgar. 


SUSCRIBASE 
POR TELEFONO 
x más fácil, 

* más cómodo, 

x más rápido 


Telf. (91) 733 79 69 
7 días рог semana, 24 horas а su servicio 


SUSCRIBASE A 


APREN 


n microprocesador que 
no sea capaz de comuni- 
arse con el exterior es 
omo un campanario sin 
ірйейа: no tiene razón 
de ser. ¿De qué nos ser- 
viría un ordenador sin 
teclado, sin monitor, sin 
altavoz y sin sistemas de almace- 
namiento de datos? Evidentemen- 
te para nada. Es porello por lo que 
todos los procesadores tienen re- 
servado algün espacio de direccio- 
nes para dispositivos de entrada y 
salida. Pero, si las 64K que es ca- 
paz de direccionar el Z-80 son uti- 
lizadas en su totalidad (al menos 
en el 48K) entre ROM y RAM, 
¿cómo se las arregla el Spectrum 
para funcionar? 

Existe una pista en el bus de 
control (IORQ) que indica cuándo 
el microprocesador está realizando 
una operación de entrada y salida 
y cuándo no. Por lo tanto, cuando 
ТОКО esté activado, podremos dis- 
poner del bus de direcciones, es 
decir, de 64K extras, para dedicar- 
las exclusivamente a entradas y sa- 
lidas. 

En lugar de asignar a cada dispo- 
sitivo una o varias di- 

тессіопев, para 
mayor versa- 
tilidad del 


`ç « 


sistema, еп е! Spectrum cada bit de 
una dirección indica si un disposi- 
tivo está seleccionado (valor 0) o 
no (valor 1). 

Así, el bit 0 de una dirección in- 
dica si se utiliza la ULA, el 2 si la 
ZX-Printer, y el 3 y el 4 si el Inter- 
face 1 y los microdrives. Como po- 
demos ver quedan los bits 1 y 5-15 
para otros periféricos, aunque, en 
lo que atañe a entradas, los bits 
8-15, es decir, el byte más signifi- 
cativo, se utilizan para el teclado 
como se explica más adelante. 


Los INs y los OUTs 


Existen dos instrucciones del en- 
samblador (también presentes en 
el BASIC), que se encargan de 
efectuar entradas y salidas. Equi- 
valen a PEEK y POKE, sólo que 
activan IOQR, por lo que el dato 
que «leamos» o «escribamos» no 
irá/vendrá a/de memoria, sino 
a/de el dispositivo que correspon- 
de a la dirección seleccionada o 
port. 

La sintaxis es la siguiente: 

IN A, (n) lee en el acumulador el 
port direccionado por el propio va- 
lor de A como byte alto y el núme- 
ro n como byte baj 

IN r, (C)lee en r (=A, B, C, D, E, 
Ho L) el port direccionado por BC. 

OUT (n), A saca el nümero n 
por el port direccionado por A 
como byte alto y n como byte bajo. 

OUT (C), r saca el valor de r (- 
A, B, C, D, E, H o L) por el port di- 
reccionado por BC. 

Al igual que con las instruccio- 


DIENDO 


E MAQUINA 


nes de carga y comparación, exis- 
ten instrucciones de entrada y sali- 
da que incrementan o decremen- 
tan y repiten. 

INI, en assembler, no es ninguna 
agrupación de industrias en malas 
condiciones, sino una instrucción 
que lee en la posición de memoria 
direccionada por HL el port direc- 
cionado por ВС, incrementa HL y 
decrementa B. INIR realiza un INI 
pero lo repite hasta que B valga 
cero. Similares a las anteriorcs, 
IND e INDR, en lugar de incre- 
mentar, decrementan el par HL. 

OUTI saca por el port direccio- 
nado por BC el valor de la posición 
a la que apunta HL, incrementa 
HL y decrementa B. OTIR repite 
hasta que B sea igual а cero. 
OUTD y OTDR igual, pero decre- 
mentando HL. 

Como vemos, estas ültimas ins- 
trucciones modifican el byte de 
mayor peso a medida que ejecutan, 
por lo que sólo son ütiles cuando 
éste no es utilizado. INIR y OTIR 
son usadas, por ejemplo, para efec- 
tuar la lectura y escritura de los 
sectores en los microdrives. 


La ULA, un ayudante eficaz 


La ULA es un chip diseñado es- 
pecialmente para ayudar al Z-80 
en tareas específicas del Spectrum. 
Controla, por tanto, todas las en- 
tradas y salidas que puede efectuar 
un Spectrum standard sin otros in- 
terfaces. 

La ULA se comporta de distinta 
forma segün la utilicemos como 


dispositivo de entrada o de salida. 
En todo caso, para seleccionarla, el 
valor que la direccione tendrá que 
tener a cero el bit 0. 

Como dispositivo de salida, con- 
trola el color del borde (bits 0-2), la 
toma MIC (bit 3) y el altavoz (bit 
4). Los bits 5-15 no son utilizados 
en este caso. La dirección que ha- 
bremos de usar para estos disposi- 
tivos es la 254 o 11111110 bin (es 
indiferente el valor del byte más 
significativo). 


Por ejemplo, OUT (254), A, 
siendo А igual a 2, pondrá rojo el 
color del borde, aunque si no ac- 
tuamos sobre la respectiva variable 
del sistema volverá a su estado ini- 
cial en cuanto ejecutemos alguna 
operación del BASIC que le afecte. 

La Figura 1 muestra el listado de 
una rutina que cambia el color del 
borde a gran velocidad y testea, 
mediante la subrutina de la ROM 
BREAK-KEY (1Е54һех), si 
BREAK está siendo pulsado, para 
volver al BASIC sólo en ese caso. 
La velocidad a que cambia de co- 
lor es tal que el ojo humano no es 
capaz de seguirlo, por lo que el re- 
sultado es un borde multicolor y 
estático. Precisamente para que las 
líneas no suban o bajen se han in- 
cluido las instrucciones DI y EI, 
que prohíben las interrupciones 
durante la ejecución de la rutina. 
Esto no será suficiente si coloca- 
mos la rutina en las primeras 16K 
de RAM, por lo que los usuarios 
de Spectrum 16K observarán bas- 
tante movimiento mientras la eje- 
cutan. La forma en que actúan las 
interrupciones será estudiada más 


FIGURA 1 
10 ORG 60000 
20 
30 DI 
40 NO ВАК 
Sh C в? 
60 CaMB B 
70 OUT (C),B 
во DJNZ САМВ_В 
90 CALL *1F54 
100 JR — C,NO BRK 
110 EI 
120 RET 

FIGURA 2 
20 ORG 20000 
30 
40 DI 
so iD c5 
60 N FREC 
70 LD н,10 
80 LD  A,(23624) 
90 RRA 
100 RRA 
110 RRA 
120 M_FREC 
130 хов 16 
140 QUT (254),A 
150 LD BL 
160 RETARD | E. 
170 DJNZ RETARD 
180 DEC H 
190 JR  NZ,M FREC 
200 INC 
210 JR NZ,N_FREC 
220 EI 
230 RET 


FIGURA 4 


BUS DE DIRECCIONES 


AS 


BUS DE DATOS 


x 


extensamente en capítulos poste- 
riores. 


Haciendo ruido 


Para hacer sonar el sencillo alta- 
voz del Spectrum habremos de ha- 
cer un OUT a 254, activando y de- 
sactivando su bit 4 a gran veloci- 
dad (de ésta depende la frecuencia 


FIGURA 3 


DETALLE TECLA 


del sonido). Si nos limitamos a ac- 
tivarlo durante un período deter- 
minado de tiempo no conseguire- 
mos más que un inaudible «click». 
Hay que tener cuidado de lo que 
hacemos con los bits 0-2, pues, si 
no usamos los valores apropiados, 
el color del borde cambiará a dúo 
con el altavoz. 

La Figura 2 muestra el listado de 
una rutina que hace sonar el alta- 
voz de forma muy distinta al cono- 
cido BEEP del BASIC. Lo que 
hace especial al sonido generado 
por esta rutina es que la frecuencia 
va modificándose a medida que se 
ejecuta, por lo que el resultado es 
algo parecido a una sirena. Se pue- 
de variar la longitud y característi- 
cas del sonido modificando el va- 
lor de H en la línea 70; un número 
impar dará un sonido más estri- 
dente. 

Obsérvese cómo esta rutina, me- 
diante RRCA, toma de la variable 
del sistema BORDCR (23624) el 
color actual del borde para que no 


sea modificado. También usa 
XOR 16 para poner a 1 el bit 4 si 
estaba a 0 y ponerlo a 0 si estaba a 
] (el qué hacen y cómo se usan las 
instrucciones RRCA y XOR lo de- 
jaremos para el capítulo siguiente, 
en el que veremos todas las ins- 
trucciones lógicas y de rotación). 
Como la rutina de la Fig. 1, prohí- 
be las interrupciones con DI al co- 
mienzo y las vuelve a permitir con 
EI antes de la vuelta al BASIC, 
esto es necesario para que el soni- 
do sea puro, si no lo hiciéramos, 
las interrupciones de la ULA crea- 
rían un zumbido de fondo de 50Hz 
que echaría todo por tierra (esto 
sucederá también si ubicamos la 
rutina en las primeras 16K de 
RAM). 

Si nos conformamos con hacer 
pitidos oficiales Sinclair, podemos 
recurrir a la subrutina de la ROM 
BEEPER, localizada en 03В5һех y 
a la que podremos pasarle en el par 
DE el producto de la frecuencia 
del sonido (en Hz) con su duración 


(en segs), y en HL el número de es- 
tados temporales del bucle de ге- 
tardo dividido entre 4. Este es igual 
a la frecuencia/2 por la velocidad 
de reloj (en el Spectrum 3.5MHz). 
Esta rutina, por estar en ROM, sí 
puede ser utilizada por los usua- 
rios del 16K. 

Usada como dispositivo de en- 
trada, la ULA controla el teclado y 
la toma EAR. Esta última es selec- 
cionada por el bit 6 de la dirección 
del port. En cuanto al teclado, usa 
los bits 8-15. 


El teclado, 
otro periférico 


Debemos ver el teclado del 
Spectrum como una malla en la 
que se cruzan las pistas del byte 
alto del bus de direcciones con las 
correspondientes a los bits 0-4 del 
bus de datos (ver Fig. 3). En los 
puntos de cruce hay un interruptor 
que corresponde a cada una de las 
teclas y puede conectar una pista 
con la otra. Este es el esquema uti- 
lizado en el Spectrum de 16 y 48K; 
en el Plus y el 128K la cosa se 
complica al unir algunos contactos 
más de dos pistas, pero el resultado 
final es el mismo. Así, segün apa- 
rezcan en la dirección de un port 
los bytes 8-15 puestos a cero, po- 
dremos saber el estado de las semi- 
filas que les corresponden en la 
malla. El resultado será un nümero 
cuyos bits 0-4 puestos a cero indi- 
carán si están pulsadas cada una de 
las teclas de la semifila selecciona- 
da. El valor de los bits 5-7 del re- 
sultado no es significativo, y de he- 
cho cambia con las distintas ver- 
siones del Spectrum. 

Dado lo sencillo del sistema uti- 
lizado, puede haber problemas de 
realimentación cuando se pulsan 
más de dos teclas a un mismo 
tiempo, por ejemplo, si pulsamos 
CAPS SHIFT, «x» y «m» a la vez 
cualquier sistema de lectura que 
empleemos creerá que también 
SPACE está siendo pulsada (pue- 
des probar a utilizarlo como 
BREAK). 

Para comprobar el estado de una 
determinada tecla o grupo de ellas 
podemos acudir a la tabla de la Fi- 
gura 4, en la que se dan los distin- 
tos valores que corresponden a las 


ENSAMBLADORES 


EDITOR 
ENSAMBLADOR 
PICTURESQUE 


Continuamos con los comentarios sobre los pro- 
gramas ensambladores más característicos de los pre- 
sentes en nuestro mercado. En esta ocasión le toca el 
turno al Editor Ensamblador Picturesque, otro de los 
preferidos por los aficionados al código máquina por 
sus prestaciones y facilidad de manejo. 

En líneas generales se trata de un ensamblador bas- 
tante completo. El editor de líneas es fácil de utilizar, 
su único defecto es que carece de la posibilidad de in- 
serción, algo que sí tienen ensambladores de menos ca- 
lidad. Salvo este detalle, ofrece casi todas las opciones 
que se le pueden pedir a un programa de este tipo: re- 
muneración, auto, utilización con cualquier impreso- 
ra, grabación y carga en cassette y microdrive, etcétera. 

Admite números en base deçimal y hexadecimal 
y para esta última hay que indicarlo con una <Hy 
después del número. Si un número hexadecimal co- 
mienza por una letra hay que ponerle un cero delan- 
te para que el ensamblador lo distinga de las etique- 
tas. Es obligado el uso del comando END al final de 
cada listado. No admite que incluyamos las etiquetas 
en líneas independientes, por lo que en los listados 
que utilicen esta técnica habrá que fusionar cada una 
de esas líneas con la que le siga, por ejemplo: 

LDB, FO 

RETARD 

DJNZ RETARD 

RET 
deberá sustituirse por: 

LD B, OFOH 

RETARD DJNZ RETARD 

RET 

END 

El programa no es reubicable, aunque incluye en 
el mismo paquete versiones para 16 y 48K (algo re- 
cortada y por tanto más limitada la primera). Esto 
no es en realidad un problema grave, dado el uso que 
hace de la memoria, en el que el programa fuente crece 
hacia abajo en el espacio de reserva del BASIC. 

En definitiva, se trata de un ensamblador bastante 
cómodo de utilizar por el uso de palabras-clave al es- 
tilo del BASIC que acorta el período de familiariza- 
ción con el programa. Recomendado para quien em- 
pieza. 


ocho semifilas del teclado. Si sólo 
queremos saber si una tecla cual- 
quiera ha sido pulsada, podemos 
utilizar el port 254 y comprobar si 
en los bits 0-4 del resultado hay al- 
gún cero. 

En realidad el conocer todo esto 
sólo nos resultará de verdadera uti- 
lidad cuando deseemos saber si se 
están pulsando dos teclas a un 
tiempo. Para necesidades menos 
sofisticadas es más práctico utili- 
zar las rutinas de la ROM como hi- 
cimos en el capítulo 5, 


Otros, 
dispositivos 


Hay docenas de dispositivos dis- 
tintos que pueden ser conectados 
al Spectrum. Esto se hace gracias a 
los interfaces, que, en realidad, no 
son sino dispositivos de entrada y 
salida que sirven de enlace entre el 
Z-80 y microdrives, impresoras, 
discos, joysticks, lápices ópticos, 
otros ordenadores y un largo nú- 
mero de etcéteras. 

Uno de los más utilizados es el 
Interface 1, que permite el uso del 
RS232, la red local y los microdri- 
ves. La mejor manera de utilizar 
estos dispositivos es aprovechando 
las rutinas de la nueva ROM que 
incorpora el mencionado interface 
como veremos más adelante. 

Otro mítico periférico del Spec- 
trum es la ZX-Printer, que utiliza 
el port 251. Haciendo un OUT a 
esa dirección con el bit 7 activado 
imprimirá un punto, y si el bit 2 
está a cero pondrá en marcha el 
motor. Algunos interfaces de im- 
presora y otros dispositivos utili- 
zan los bits 6 ó 7 para direccionar 
su port, o inclusive bits del byte 
alto mientras mantienen el de la 
ULAal. 

Es posible que algunos de los 
términos utilizados en este o en al- 
guno de los anteriores capítulos no 
hayan sido comprendidos del todo 
por los menos aventajados. No de- 
ben desesperar, aunque el princi- 
pio puede ser realmente duro, a 
medida que se adentren en el estu- 
dio de esta bonita materia las cosas 
зе irán haciendo más fáciles. Es en- 
tonces cuando se debe volver atrás 
y releer todo cuanto nos hizo du- 
dar la primera vez. 


La protección del 
software 


ebido a que la entrada y 

salida de datos bajo el 

sistema operativo QDOS 

es un dispositivo inde- 
pendiente, la protección de pro- 
gramas resulta algo problemática. 
Cualquier archivo, esté grabado en 
diskette o microdrive, puede co- 
piarse fácilmente en una impreso- 
ra, pantalla o cualquier otro dis- 
kette o microdrive. Esto es particu- 
larmente cierto para los programas 
SuperBASIC que se han almacena- 
do como archivos en forma de ca- 
racteres ASCII, ya que el comando 
COPY mdvl_nombre_de_archivo 
TO scr revelará al instante toda la 
información de forma totalmente 
legible. 

En cuanto al código máquina, 
aunque éste necesita desensam- 
blarse, el hecho de que el QDOS 
permita extraer bytes de cualquier 
lugar de la memoria mediante el 
comando SBYTES y volverlos a 
cargar con LBY TES en otra locali- 
zación totalmente diferente, facili- 
tala desprotección. 

Por lo tanto, para proteger un 
programa de QL deben idearse mé- 
todos especiales, para que sola- 
mente funcione cuanto esté en su 
Soporte original o para hacer el 
proceso de copia lo más complejo 
posible. En este artículo pasare- 
mos revista a algunos métodos dis- 
ponibles para el usuario. 


RUTINA DECARGA 
AUTOMATICA 


La carga de programas comer- 
ciales desde el soporte en que han 
sido grabados (cartuchos microdri- 
ve) a la memoria de modo que fun- 
сіопеп automáticamente, se reali- 
za mediante un archivo BOOT. 

En el QL, inmediatamente des- 
pués de pulsar una de las teclas de 
función para seleccionar el forma- 


о? 


La protección de programas 
tiene un significado distinto 
para cada uno de los 
diferentes tipos de usuarios 
existentes. En la escala 
superior, las casas de 
software emplean medidas de 
protección para mantener el 
fruto de costosas inversiones 
fuera del alcance de la 
explotación criminal de 
terceras personas (piratas). 
Para el programador, es un 
medio de mantener en secreto 
el resultado de muchas horas 
de duro trabajo desarrollando 
revolucionarios algoritmos. 
En cuanto al hombre de 
negocios, significa impedir el 
acceso a información 
reservada. Finalmente, puede 
ser también, para el simple 
aficionado, un medio 
eficiente de cobertura de una 
mala programación. En este 
artículo, vamos a revisar 
algunos métodos para 
proteger sus propios 
programas. 


to de pantalla, la máquina intenta 
abrir un canal para un dispositivo 
llamado BOOT, consistente en 
una lista de comandos almacena- 
dos en ROM. Si falla el intento, se 
prueba a abrir un archivo de entra- 
da BOOT que esté almacenado en 
el microdrive 1. Este archivo, for- 
mado por una serie de líneas BA- 
SIC en ASCII, se cargará normal- 
mente en la mayoría de los progra- 
mas SuperBASIC y/o código má- 
quina (incluyendo una sentencia 
CALL para estos ültimos). 

Este mecanismo gira en torno a 
la variable del sistema BV_ 
COMCH, en la dirección 


$0084(A6), la cual contiene una 
palabra de información con el ca- 
nal ID para el comando de entrada 
de flujo. Normalmente dicho con- 
tenido es cero para el canal de en- 
trada del teclado, pero al producir- 
se una carga automática (BOOT) o 
al entrar en funcionamiento el co- 
mando LOAD, contendrá el canal 
ID para archivo abierto. 

En lugar de seguir el procedi- 
miento de carga automática descri- 
to más arriba, el pirata podría in- 
troducir esta orden: LOAD 
mdvl. boot, e inmediatamente lis- 
tar el programa para descubrir más 
información. Pero como este ar- 
chivo es una lista de comandos que 
no necesitan nümeros de línea, se 
autoejecutará siempre aunque se 
emplee LOAD o MERGE. 

El listado 1 es una demostración 
de cómo establecer un archivo de 
ejecución automática (BOOT). 
Una vez grabado, intente cargar el 
programa con LOAD o MERGE y 
pulse BREAK a continuación 
(CTRL + SPACE). Seguidamente, 
introduzca el comando LIST y 
descubrirá que el programa ha de- 
saparecido, ya que no es un pro- 
grama propiamente dicho, sino 
una lista de comandos directos 
provenientes del cartucho de mi- 
crodrive. Este método puede usarse 
para cualquier programa Super- 
BASIC (no necesita llamarse 
BOOT ni tampoco tiene por qué 
estar forzosamente almacenado en 
el microdrive 1). 


INVISIBILIZANDO 
ARCHIVOS 


Aunque el método anterior pue- 
de hacer desistir temporalmente al 
pirata, todavía puede estar en con- 
diciones de utilizar el comando 
COPY. En este caso deberemos fa- 
bricar un archivo invisible, de 


modo que no aparezca en el di- 
rectorio. Un ejemplo de utiliza- 
ción de este método es SBYTES 
mdvl_,0,49152. En este caso, gra- 
baríamos el contenido de la ROM 
en el microdrive 1 con un nombre 
de archivo nulo. Al efectuar un 
DIR mdvL, el directorio no mues- 
tra ningún nombre de archivo, 
pero el número de sectores libres 
se verá sensiblemente reducido. 
Como alternativa, también pue- 
de almacenar archivo con nombres 
como mdvl «ESPACIO». Estos no 
pueden copiarse porque el QL no 
puede trabajar si tras el subrayado 
encuentia un caracter de espacia- 
lo. 


DESACTIVACION 
DEBREAK 


Uno de los métodos más conoci- 
dos para evitar la piratería consiste 
en inhabilitar la acción de 
BREAK. 

El teclado sufre una exploración 
cada 20 milisegundos debido a las 
interrupciones generadas por una 
de las ULAs del QL. Afortunada- 
mente, este mecanismo de inte- 
rrupción está condicionado por el 
puntero de una tabla de datos si- 
tuado en SV. PLIST (en la direc- 
ción $2803C). Esta palabra apunta 
a una lista de 8 bytes. Los primeros 
4 bytes son el puntero del siguiente 
elemento de la tabla de datos. Los 
otros 4 bytes contienen el puntero 
del mecanismo de interrupción de 
50 Hz que debe ejecutarse en ese 
momento. А! encenderse, el QL 
sin expansión sólo tiene una entra- 
da en la tabla, consistente en una 
rutina (llamada cada vez que se 
produce una interrupción) que tra- 
baja con todos los interfaces exter- 
nos del QL mediante la comunica- 
ción con las ULAs principales y el 
Pe (Inteligent Peripheral Contro- 

er). 

Para desactivar BREAK desde el 
SuperBASIC solamente debe in- 
troducirse el siguiente comando: 
POKE_L 163900,0. 

Al colocar un 0 en esa dirección 
de memoria, el QL ignora las ta- 
reas externas por estar vacía la ta- 
bla. Esto afectará a cualquier hard- 
ware extra que se esté utilizando y 
emplee interrupciones de 50 Hz. 


pressing 


LISTADO 1 


MTL D sE 
BASIC HERDER 

EV ERE sooBr 
JEZSTART $0014 


Y COMIENZO DEL CODIGO 
LEA TASK, аі 
LEA TASK_LINK, до 
MOVE.L AL, 9700) 
моуға “MT_LSCHD,DO 
TRAP S 
RTS 


UPCION <1 
CABECERA CARGADOR SB 


10м САБЕСЕНА SE 
ESTADO PANT. 


REC 
DIRECCION FLAG 


PUNTERO FARA LA NUEVA TAREA 
DE PLANIFICACIÓN 

FUNTERO PARA RESERVA DE ESF, 
ALMACENA PUNTERO DE TAREA 
INTERRUFCION 


RETORNO AL SE 


саво 


ESTAELEC 
CABECERA DE LA RI 


DIRECCION DE LA 
TINA SB 


EXAMIMA ESTADO TAREA SE 
PERBASIC NO 


ANIFICACION A LLEVAR A 
TASH MOVEA.L SV BASIC,AO 
LEA BASIC_HEADER (А0) „АІ 
таз ЕУ ЕКЕ (А1) 
-W — JE.STAT (AO! 
.8 LTER 
MOVE. 
NO ALTER CLR.B 


SE ASEGURA DUE Là PANTALLA 
ESTE ACTIVA 


sddr e: 


addre 


99 T0 0 8 


HOO, 16, 
30,78, 6 


LISTADO 3 


je. machine, code 
tore. 


machine code 


El método sólo es efectivo con рго- 
LISTADO 4 gramas SuperBASIC sencillos, 
aunque el teclado puede seguir 
leyéndose empleando KEYROW 
PE. TETRL EQ wipoo2 (por ejemplo, para leer el cursor o 
РЕ_МСТВЕ Eau $18020 las teclas de función). 
8V TMODE Equ $2B040 
MD SECTR Eau 
MOTORS OFF AH Egu *2B5A DIRECCION EN *AH” (VER- UN METODO MAS 
SION 1.02) 
MOTORS OFF JM — EQU — s2B64 EN "JM (V. 1.02) EVOLUCIONADO PARA 
MOTORS OFF JS ЕПП $2050 EN 'JS' (V. 1.10) LA DESACTIVACION 
MOTORS üFF JSuU Equ $209A EN *JSU'(V. 1U10) 
MOTOR ON ан Equ $2B54 DIRECCION EN *АН” DE LA " :A 
RUTINA DE MOTOR ENCENDI- La desactivación de BREAK 
DO DEL MICRDRIVE puede realizarse de una manera 
o e Е кыы, más efectiva con el empleo de una 
MOTORON JSU Eau $2698 ЕМ 'JSU" rutina adicional de planificación 
LE EE. E ME ЕМ “Мб” (Scheduler Loop Task). El propio 
д 1000 A І 
РС МТМ Eou ILION sistema operativo del QL posee 
SERB ком 0010000 una rutina de este tipo, consistente 
IST әр ван. 0011100000000 еп un programa que controla у 
ERR. бк әсі Ens E BOUE ES: planifica la secuencia de tareas y la 
ЕВЕ МЕ E -7 distribución de los medios de la 
ERREF e x máquina. En nuestro caso, será so- 
Ж COMIENZO DE LA RUTINA DE LECTURA DE CABECERA DE UN SECTOR DE licitada cada vez que se produzca 
| CARTUCHO MICRODRIVE un llamamiento a la rutina de 

TRAP — 6 mantenimieto del QDOS, ejecu- 

СМР. 29,01 tándose siempre antes que esta ül- 

BGE.S NOT_FOUND tima. 

TEE EC e Para que pueda desactivarse 

DRI.W — *INTS BFF,SR BREAK, primero tenemos que 

un даир НЕ asegurarnos que la variable del sis- 

AES БҚ ЫДАН tema ВУ. ЕВК en la dirección 

DRI.B РС SERB,DO $008F(A6) nunca contenga 0 y que 

ЕЕ НЕ la tarea Super-BASIC siempre esté 

MOVEA.L “MOTOR_DN_JS, AO activa. También debe desactivarse 

JSR (ао) el efecto de CTRL + F5 para ase- 

MOVE.W TIME DUT,DX n ñ сэй 

BAD. HEADER SUBB.W 21,05 gurar que siempre esté en furo 

BEO.S ВАР MEDIUM namiento la pantalla, estab! есіеп- 

LEA HEADER_BUFFER, A1 do adecuadamente el contenido de 

MOVEA.W MD_SECTR, AO n % 4: 

так ЖАДОО АО la variable del sistema asociada 

BRA.S BAD_MEDIUM con ella. 

ERR. OAO PEADAR El programa ensamblador del 
| оаа s EDT listado 2 establece una tarea de 
| NOT FQUND МОУЕП “ЕКЕ NF.D7 planificación para que BV. BRK 

BROS т д nunca contenga 0 (соп lo que se 

FINES OVER. -MOTERS DEF. 29,0 evita que el QDOS advierta la pul- 
зек TAB) = sación de BREAK) e inspecciona 

AND. EV THODE, DO el estado de la tarea SuperBASIC 1 

DO.PC TCTRL alterándolo en consecuencia. La 
V TMODE rutina entra siempre en funciona- | 

«лт GNAEBER SR miento antes que las tareas de pla- 
nificación de la ROM, las cuales 
incluyen la secuencia de activa- 

ж ALMACENAMIENTO FARA CABECERA DE SECTOR ción de BREAK. 
HEADER_EUSFER La instrucción TAS (Test and 
FLAG _ + Set) usada еп el programa, analiza 
SECTOR NUMBER e y establece el bit 7 del byte de ope- 
RAND HUMBER 1 rando en una operación indivisi- 
ble. Esta es una forma limpia de 
señalar que BREAK no se ha pul- 


sado, en lugar de cargar $80 en la 


variable del sistema correspon- 
diente. 

Esta rutina puede incorporarse 
en el interior de su archivo BOOT 
utilizando el método descrito ante- 
riormente. En caso de no disponer 
un ensamblador, utilice el progra- 
ma del listado 3, que contiene un 
cargador de código máquina y una 
demostración de sus efectos. 


COMO IMPEDIR 
LA COPIA DEL 
CARTUCHO ORIGINAL 


Aparte de la utilización de car- 
tuchos ROM, el mejor medio de 
protección en el QL consiste en 
obligar al comprador de sofiware a 
mantener su cartucho original. 

Para llevar a cabo este método, 
debe introducirse el cartucho en el 
microdrive 2 y leer una cabecera de 
sector, obteniéndose un nümero 
aleatorio de 16 bits, creado en el 
momento del formateo. Si el nú- 
mero registrado en el cartucho ori- 
ginal se lee durante su creación y 
se carga en una tabla en el carga- 
dor del programa que necesita pro- 
tección, este cargador puede com- 
pararlo con el nümero leído en el 
cartucho del microdrive 2. En caso 
de no ser el mismo, o no existir 
cartucho, entrará en funciona- 
miento un sistema de reinicializa- 
ción. En caso contrario, el carga- 
dor seguirá cargando el programa 
principal. 

Por supuesto, el pirata tiene to- 
davía una posibilidad entre 65536 
de formatear su propio cartucho 
con el mismo nümero aleatorio de 
16 bits que el del original. Sin em- 
bargo, esto bastará para obligarle a 
desistir de sus propósitos. 

Cargando el programa del lista- 
do 5, podrá hacer funcionar el có- 
digo máquina, que colocará un пй- 
mero aleatorio en el cartucho del 
microdrive 1. A continuación, de- 
berá introducir otro cartucho (o el 
mismo) en el microdrive 2. Enton- 
ces, el programa lleva a cabo la 
comparación y le dirá si es o no es 
el mismo cartucho. 

Las rutinas ROM para poner en 
marcha y parar los motores de los 
microdrives no son vectoriales 
como las de lecturas de cabecera 
de sectores, sin embargo, en futu- 


LISTADO 5 


MODE 4 
LET reserved address-RESPR (144) 
LET address-reserved address 
RESTORE. 
REFeat read and store machine code 
IF EOF THEN EXIT read and store machine code 
O READ machine code byte 
РОКЕ address,machine code byte 
O LET address-address*i 
END REPeat read and store machine code 
LET rom vers-VERS 


Ж (1 TO 2)="AH" THEN 
РОКЕ W reserved. address«SA, 11108 
POKE_W reserved 'address*96, 11114 
O END IF 
IF com vers(1 TO 2)-'JM^ THEN 
reserved address54,11120 
© POKE_W reserved address96,11114 
END IF 


мег (1 ТО S)e'JSU' THEN 

reserved_address+54,11424 
TW reserved_addrees+96,11418 
END IF 
IF rom ver$(i TO 2)="MG' THEN 

POKE_W reserved address*54,11474 
reserved address*94,1146B 


REPeat test microdrive cartridges 

420 PRINT "Place a cartridge in mdvl and press а key" 
PAUSE 

440 CALL reserved_address,1 ^ 

450 LET тау опе number-PEEK W (reserved address*132) 

460 PRINT "place a cartridge in mdv2 and press a key" 

470 PAUSE 

480 CALL reserved_address,2 

490 LET muy_two_number=PEEK_W (reserved address*152) 

500 IF mdv one number-mdv two number THEN 

510 PRINT "Cartridge in mdv2 same as that in mdvi" 

520 ELSE Е 

S30 PRINT "cartridge іп mdv2 not the same as in mdvi" 

540 END IF 

550 END REFeat test microdrive cartridges 


DATA 78,64,178,189,0,0,0,9, 108,76 


DATA 74,129,102,72,0,124,7,0,71,249 
DATA 0,1,128,22,16,60,0,231,192,% 
DATA 0,2,128,108,0,0,0,16,19,192 
DATA 0,1,128,2,19,192,0,2,128,160 
DATA 32,124,0,0,44,86,78,144,54,60 
DATA 2,83,67,103,24,67,250,0,62 

O DATA 11,42,78,168,64,0,96,10 


50 DATA 1126,0,96,6,126,249,96,32 
DATA 22,124,0,0,44,80,78,144 

DATA 16,60,0,231,192,57,042, 128,160 

DATA 19,192,0,1,128,2,19,192,0, 

DATA 128,160,2,124 7,78,117 

DATA 0,0,0,0,0,€ 

O DATA 0,0,0,0 


ras versiones del QL se podrá re- 
mediar esto. De momento, debe 
conocer cuál es su versión de QL 
para poder modificar el programa. 

Pasa saber cuál es su versión de 
ROM, deberá utilizar la función 
VERS. El programa del listado 4 
ha de ensamblarse incluyendo las 


direcciones correctas que necesita 
su versión. En cuanto al programa 
de demostración SuperBASIC 
(listado 5) las direcciones necesa- 
rias se POKEan de forma automá- 
tica. 


Orlando Araujo Martín 
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ICE: Iconos,ventanas 
y ratones 


uando se conecta un or- 

denador provisto de estas 

facilidades, aparece en 

pantalla la superficie de 
un escritorio con diversos objetos 
situados sobre él: son los iconos. 
Cada uno de ellos posee una fun- 
ción determinada, que se corres- 
ponde con comandos del sistema 
operativo. Para facilitar la selec- 
ción se hace uso de unratón, dispo- 
sitivo que al ser desplazado sobre 
la mesa provoca el movimiento de 
un cursor en la pantalla. Colocado 
dicho cursor sobre el icono selec- 
cionado, se pulsa una tecla incor- 
porada al ratón y el ordenador eje- 
cuta la tarea solicitada. Al igual 
que en un escritorio verdadero, po- 
demos superponer en la pantalla 
diversas ventanas a modo de docu- 
mentos con la información que ne- 
cesitamos consultar. De esta ma- 
nera, el uso del teclado queda re- 
ducido al mínimo. 

El Macintosh, de Apple Com- 
puter, incorpora un sistema de ico- 
nos plenamente evolucionado, y 
su facilidad de manejo ha marcado 
un hito en la historia de los orde- 
nadores pelsonales. Recientemen- 
tc, Digital Research ha desarrolla- 
do GEM, un entorno de iconos, 
ventanas y ratón del que existen 
versiones para diversas máquinas, 
como el IBM PC, el Atari 520 
ST, y otras. 

La idea de facilitar el trabajo y 
aprendizaje del usuario es sin duda 
la última moda. Sin embargo, co- 
menzó a forjarse a comienzos de la 
década de los 70, en el centro de 
Xeros Corp en Palo Alto, Califor- 
nia, cuando los investigadores de 
esta empresa decidieron que eran 
los ordenadores los que habían de 


Qs 


Hasta hace poco, el usuario 
sin conocimientos de 
informática debía entablar 
una lucha desigual con su 
ordenador. Los sistemas 
operativos obligaban al 
aprendizaje de enormes listas 
de comandos y sintaxis. El 
Lidsa de Apple, mediante el 
empleo de un interface de 
usuario basado en ventanas, 
iconos, ratón y menus pull 
down, inició un proceso de 
simplificación en la 
utilización de ordenadores 
personales. Al Lisa le 
sucedió el Macintosh, con 
características similares y un 
precio más atractivo. Con el 
ICE (Icon Control 
Environment), el QL se 
incorpora a la misma 
tendencia. 


adaptarse a las personas, y no al 
contrario, como venía sucediendo. 


ICONOS EN EL QL 


El QL también se ha querido in- 
corporar a estas innovaciones. Ba- 
sándose en los sistemas ya existen- 
tes, la compañía Eidersoft ha crea- 
do el Icon Control Environment 
(ICE). suministrado en un cartu- 
cho ROM. Disefiado como «herra- 


mienta amable» de cara al usuario 
para hacer frente al complejo 
QDOS, el ICE tiene mucho en co- 
mün con los sistemas de iconos y 
ventanas de otros ordenadores. 
Esto permite proteger al usuario de 
los desvaríos del sistema operativo 
gracias a un extenso surtido pro- 
tector a base de gráficos. La idea 
fundamental del ICE consiste en 
aproximar el manejo del ordena- 
dor a la gestión habitual de una 
oficina. 

Después de enchufar el QL con 
la EPROM ICE de 16 K insertada 
en el conector de ampliación de 
memoria ROM, en la pantalla 
aparece un escritorio sobre el que 
hay dibujadas diversas figuras o 
iconos que identifican las dife- 
rentes tareas que puede realizar el 
QL, archivos disponibles y varias 
facilidades como calendario, cal- 
culadora y papelera. 


COMODIDAD Y 
RAPIDEZ DE 
MANEJO 


Para utilizar el ICE, todo lo que 
el usuario debe hacer es limitarse a 
desplazar por la pantalla una fle- 
chita a modo de cursor o puntero 
mediante las teclas de desplaza- 
mioento, joystick o ratón (este ülti- 
mo estará disponible próxima- 
mente en nuestro país). Cuando el 
puntero está junto al icono elegido 
por el usuario o cerca de una de las 
opciones de control (situadas сп la 
parte inferior de la pantalla) lo 
único que hay que hacer es pulsar 
la barra de espaciado una o dos ve- 
ces, dependiendo de si desea selec- 


Desk File View Options 
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used in 28 items. 


Estos 
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INSTALL APPLICATION 


Document Type; __ 


Application Mame: FORMAT „СОҢ 


Application Type: [БЕМ 


xs MORE | 


Generic 
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Мога Processor 


Database 
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Project] [Graph 
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Education 
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GEM en IBM PC. Su parecido con el sistema del Macintosh no puede 


ser mayor. 


cionar la tarea o inicializar cual- 
quier operación implicada. El pro- 
ceso, que no-requiere ninguna in- 
troducción de datos desde el tecla- 
do, es prácticamente un juego de 
niños. 

Las operaciones básicas de man- 
tenimiento, como pueden ser la 
extracción de directorios, copia de 
archivos y cjccución de programas, 
se llevan a cabo de forma implicita 
por el ICE. El usuario sólo se limi- 
ta a señalar y pulsar, ICE hace el 
resto. Por ejemplo, si se ve en la 


necesidad de copiar o borrar varios 
archivos, basta señalar el archivo 
en cuestión y llevarlo después a su 
dispositivo de destino o a la pape- 
lera según tenga que copiar o des- 
truir.el archivo señalado. Si las 
operaciones a realizar son de ca- 
rácter irreversible, ICE pedirá al 
usuario la confirmación de sus in- 
tenciones. Cuando se producen 
errores, la pantalla muestra los 
mensajes correspondientes, escri- 
tos, por supuesto en inglés (aunque 
bastante sencillos de comprender). 


GESTION 
DE ARCHIVOS 


Los archivos en disco y micro- 
drive se paginan en la pantalla en 
grupos de 12. ICE es capaz de dis- 
tinguir automáticamente diferen- 
tes clases de archivos, utilizando 
diferentes iconos para representar- 
los. Las clases de ficheros que pue- 
de reconocer son archivos genera- 
les en código máquina, programas 
en código máquina ejecutables 
(EXEC), programas en Super- 
BASIC, documentos QUILL, ho- 
jas del ABACUS, gráficos del EA- 
SEL, y bases de datos del ARCHI- 
VE, así como archivos de ejecu- 
ción automática (boot). La mayor 
ventaja que se desprende en este 
caso, es que el usuario puede saber 
mediante un simple vistazo el con- 
tenido de un archivo. Otro punto 
menos evidente consiste en que 
para hacer funcionar un programa 
ya no es necesario distinguir entre 
archivos que se ejecutan con 
EXEC o RUN. Los programas car- 
gadores de los paquetes de PSION 
(versión 2.000) ya no son necesa- 
rios. 

El mantenimiento general y las 
operaciones del sistema aparecen 
de modo explícito como opciones 
en un panel de control en la parte 
inferior de la pantalla. Estos per- 
miten cambiar el nombre de archi- 
vo (КЕМАМЕ), inspeccionar sus 
contenidos (VIEW) y solicitar in- 
formación acerca de uno de ellos 
(INFO), con lo cual conoceremos 
el nombre completo del archivo, 
longitud y tipo y últimos datos rec- 
tificados o añadidos. Con las ор- 
ciones de este panel también se 
pueden formatear diskettes o car- 
tuchos de microdrive (FORMAT) 
y solicitar información referente a 
la memoria disponible, rutinas que 
están funcionando y la versión del 
QDOS o ICE que se está utilizan- 
do. La opción CUSTOM permite 
variar segün las necesidades del 
usuario, los datos (que normal- 
mente funcionan por omisión con 
unos valores predeterminados) re- 
ferentes a la fecha, hora, nombres 
de dispositivos, instalación de im- 
presora, velocidad del cursor y 
sensibilidad de las teclas. Final- 
mente, existe una opción para 
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It will help 
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You will use the mouse to point to the pictures of 
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nan 


» Point to the D06 EAR. 
» Click the MOUSE button. 


people call these pictures icons 


MacCoach, un programa para aprender a manejar el Macintosh. 


abandonar el ICE y volver al Su- 
perBASIC. 


FUNCIONES 
SUPLEMENTARIAS 


ICE incorpora dos funciones es- 
peciales: calendario y calculadora. 
Utilizando la primera, la pantalla 
muestra un calendario completo 
con todos los meses, marcando la 
fecha actual iluminándola en rojo. 
Con el empleo de la segunda, apa- 
rece en la pantalla la parte frontal 
de una típica calculadora de bolsi- 
llo, con sus teclas y pantalla de vi- 
sualización de datos. Incluye una 
tecla de memorización y porcenta- 
je y funciona desplazando el cursor 
sobre las teclas. 

Al adquirir la EPROM ICE, 
Eidersoft también proporciona al 
comprador de un cartucho de mi- 
crodrive que contiene una serie de 
programas (para utilizarlos con- 
juntamente con el ICE) que le per- 


ов 


Pantalla де QL соп ICE. Se observa 
la calculadora y varios iconos. 


miten hacer funcionar en multita- 
rea cuatro programas al mismo 
tiempo. Este paquete de progra- 
mas (llamado CHOICE) puede ser 
de gran utilidad con una amplia- 
ción de 256 Kbytes de memoria, ya 
que si reservamos 128 Kbytes para 
ARCHIVE, ABACUS y QUILL 
(por ejemplo) podremos hacerlos 
funcionar simultáncamente y ac- 
ceder individualmente a cada uno 
de ellos pulsando simplemente 
CRTR + F3. No solamente es im- 
presionante la velocidad con la 


que nos movemos entre las distin- 
tas aplicaciones, sino también el 
hecho de que cuando volvemos a 
una de ellas, nos encontramos 
exactamente en el mismo punto 
donde las dejamos antes, ya sea do- 
cumento, base de datos u hoja de 
cálculo. 

Al no tener un elaborado siste- 
ma de ventanas, el ICE es mucho 
menos sofisticado que otros pro- 
gramas semejantes. Sin embargo, 
hay que tener en cuenta que el 
programa solamente ocupa 16 K, 
en lugar de los 90 K de su hermano 
mayor GEM. De todos modos, es 
fácil de utilizar y está diseñado а 
prueba de errores. En combina- 
ción con el paquete CHOICE, abre 
una nueva dimensión para el usua- 
rio que no había logrado sacar el 
máximo fruto de su QL hasta este 
momento. 

Nota: ICE se comercializa en el 
Reino Unido a un precio aproxi- 
mado de 60 libras. 


Orlando Araujo Martín 


CATALOGO DE SOFTWARE 


PARA ORDENADORES 
PERSONALES IBN 


TODO EL CATALOGO DE SOFTWARE 
CON MAS DE 800 FICHAS 


1. ENTREGA 3.500,— PTAS. 
(400 FICHAS + FICHERO) 


RESTO EN TRES 
ENTREGAS TRIMESTRALES 
DE 1.500,— PTAS. CADA UNA. 


PRECIO TOTAL DE LA SUSCRIPCION - 8.000,— PTAS. 
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UEVOS 
COMANDOS 


DEL SPECIRUM 128К 


realidad 
EPROM), 16 
son básicamente una copia de la 
del Plus (o del 48 K o del 16 K), 
mientras que las otras 16 imple- 
mentan un nuevo editor, el sistema 
de paginación, los mensajes de 
error en castellano y algunos co- 
mandos adicionales que podemos 
disfrutar desde tres modos de edi- 
ción diferentes. 

Cuando se inicializa el ordena- 
dor, aparece el copyright de Sin- 
clair y la palabra «ESPANOL». Si 
pulsamos cualquier tecla en el 
modo COMANDO, con el cursor 
en la parte baja de la pantalla y so- 
bre una línea en INVERSE que 
nos indica si estamos en modo 
MAYUSCULAS, GRAFICO o 
EXTENDIDO. Podremos utilizar 
el teclado numérico (y también el 
principal) como si de una calcula- 
dora se tratase, és decir, tecleando 
directamente 5-3 obtendremos 
como resultado 2, y si continua- 
mos con *7 aparecerá un hermoso 
14 en pantalla (lo de «hermoso» es 
una forma de hablar, el juego de 
caracteres es idéntico al del 48 K). 

Podremos también desde este 
modo disfrutar de todos los nuevos 
comandos tecleándolos directa- 
mente, letra a letra y en mayüscu- 
las (para mayor comodidad algu- 


Cuando ya muchos han 
adquirido la última 
novedad de 
Sinclair-Investrónica y 
parece causar entre sus 
usuarios, cualquier 
reacción excepto la 
indiferencia, es hora de 
sentarse a observar 
detenidamente lo que nos 
ofrece de positivo su 
sistema operativo 
respecto al del Spectrum 
Plus. 


nos podrán ser reducidos hasta el 
límite de que bastará con teclear la 
inicial). Podremos encadenar va- 
rios comandos (con «:»), pero, en 
este modo, la línea resultante en 
ningün caso podrá superar los 32 
caracteres. 

Disponemos de la posibilidad de 
renumerar las líneas BASIC me- 
diante el comando NUMERO (o 
N), que debe ir seguido de dos va- 
lores separados por una coma: el 
primero es el que le daremos a la 
primera línea, y el segundo es el 
«paso» entre líneas. Esto renume- 
rará sin problemas los GOTOs y 
GOSUBs normales, pero ignorará 
los que contengan variables u ope- 
raciones aritméticas. 


El comando BORRAR (o B) re- 
sultará ütil si queremos eliminar 
bloques BASIC. Deben seguirle 
dos parámetros, la primera y la úl- 
tima línea a borrar, separados por 
una coma. 


Pseudoprocesador 
de textos 


El comando EDIT (o E) puede 
actuar de dos formas. Si le sigue un 
espacio y una variable alfanuméri- 
ca, se pasa al modo de edición de 
textos, apareciendo en 

pantalla el contenido de 

esa variable , que podre- 
mos modificar a nues- 
tro antojo; tanto des- 
plazándonos y bo- 
rrando caracter a ca- 
racter, palabra a pa- 
labra, por líneas o 
por párrafos, 
como sustituyen- 
do o insertando 
texto, con o sin 
sangrado auto- 
mático. Po- 
dremos salir 
de este modo 
pulsando la 
tecla 

CMND o 
EDITAR, 


BRIGHT 


8 


уноо 


e imprimir el texto o salvarlo en 
cinta como una matriz de datos. 
Por ejemplo, si estábamos escri- 
biendo en a$ bastará LPRINT a$ o 
SAVE "nombre" a$(). Si tenemos 
un texto en alguna variable, hay 
que poner cuidado en salvarla en 
cinta o disco RAM (más adelante 
explicaremos lo que es esto) antes 
de hacer CLEAR, RUN o crear 
una variable con el mismo nom- 
bre, pues sino perderíamos todo lo 
hecho. 


Un editor BASIC 
más versátil 


Si el comando EDIT va seguido 
de un nümero, se pasa el modo de 
acción de líneas BASIC, con el 
cursor situado en el comienzo de la 
línea especificada (por omisión la 
primera) o la inmediata superior. 
También se entra en este modo 
pulsando las teclas ENTER y EDI- 
TAR. Podremos desplazarnos por 
las líneas en horizontal, vertical, 
caracter a caracter o línea a línea, 
borrando e insertando lo que que- 


na de las 

mayores virtudes 

del 128 es que 
nos permite por 
medio del comando 
SPECTRUM hacerle 
olvidar que tiene 
RAM y ROM extra y 
que se comporte 
como un Plus 


remos. Cuando pasamos de una lí- 
nea a otra se controla la sintaxis de 
la que abandonamos y se nos avisa, 
si hay algün error, con un simpáti- 
co bug. 

Pulsando ENTER en este modo, 
el editor abrirá un hueco entre las 
líneas, donde podremos introducir 
comandos directos (no incluidos 
NUMERO, BORRAR o EDIT). 
Cabe destacar que si tecleamos va- 
rios comandos seguidos y separa- 
dos рог «с», automáticamente co- 
menzará cada uno de ellos una 


nueva línea, con lo que el resulta- 
do es una mayor claridad en los lis- 
tados. Asimismo, aunque teclee- 
mos los comandos sin dejar espa- 
cios entre sus componentes (p. e., 
10ЕОЕМҺ-0Т098ТЕР3), apare- 
cerán en los listados perfectamente 
presentados (es decir: 10 FOR N=0 
TO 9 STEP 3). 

Es posible abandonar este modo 
y pasar a la parte baja pulsando las 
teclas CMND o EDITAR, pero si 
lo hacemos después de haber reto- 
cado una línea y antes de que ésta 
haya sido reconocida (para lo cual 
habremos de salir de ella), las mo- 
dificaciones realizadas no serán to- 
madas en cuenta. 


Comando 
SPECTRUM, 
disco RAM y RS232 


Una de las mayores virtudes del 
128 es que nos permite, por medio 
del comando SPECTRUM, hacer- 
le olvidar que tiene RAM y ROM 
extra y que se comporte como un 


Plus (salvo algún detalle, como los 
mensajes de error que seguirán en 
castellano). Es esta propiedad la 
que lo haces compatible con la 
mayor parte del software disponi- 
ble para Plus (o 48 K o 16 K). 
Debido a lo molesto de los siste- 
mas de paginación de memoria, el 
BASIC del 128 seguirá disponien- 
do sólo de 48 K RAM, las 80 K ex- 
tras podrán ser utilizadas para co- 
rrer programas en código máquina 
о desde el BASIC como disco 
RAM. Este es un sistema de alma- 
cenamiento de datos ultra-rápido, 
pero con un grave inconveniente: 
los datos se pierden en cuanto se 
desconecta la alimentación. Aun 
así, resulta muy ütil para determi- 
nadas aplicaciones. Los comandos 
que acceden a él son iguales a los 
del cassette pero seguidos por el 
signo «i». Serán válidos por tanto: 


SAVEi "nombre" LINE 10 
LOADi "nombre" 
50000,100 

SAVEi "nombre" SCREENS 
MERGEi “nombre” DATA a$() 


CODE 


El comando VERIFY no es en 
realidad necesario, pues este tipo 


de almacenamiento es tan fiable 
como el posible proceso de verifi- 
cación, pero hemos comprobado 
que lo admite, aunque no realiza 
su cometido e incluso puede llegar 
a colgar el sistema. 

Para hacer un listado de los fi- 
cheros contenidos en el disco 
RAM podremos utilizar CATi, y 
para borrar cualquiera de ellos ser- 
virá ERASEi "nombre". 

Podremos conectar el ordenador 
con cualquier impresora compati- 


ebido a lo 

molesto de los 

sistemas de 
paginación de 
memoria, el BASIC 
del 128 dispone sólo 
de 48 K.Las 80 K 
restantes pueden 
utilizarse desde 
código máquina 


ble RS232. Para ello existe el со- 
mando FORMAT «P»; que debe ir 
seguido de la velocidad en baudios 
con que opera la impresora. El ca- 
nal 3 queda inicialmente abierto al 
acceso RS232, por lo que toda la 
salida que le afecte lo hará por 
éste. 


PLAY ola forma 
de hacer mucho 
ruido 


Sin duda el comando más com- 
pleto de los que nos ofrece de no- 
vedad el 128 es PLAY. Tiene que 
ir seguido de una a tres cadenas o 
variables alfanuméricas separadas 
por comas, cada una de las cuales 
corresponde a uno, dos o tres de 
los seis canales de sonido disponi- 
bles. En ellas podremos especificar 
frecuencias, octavas, duraciones, 
ligaduras, volümenes, envolventes, 
velocidades de ejecución, repeti- 
ciones, comentarios, etc. Aunque 
resulte algo complicado controlar 
todas estas opciones a quien, de 
por sí, entienda poco de müsica, 
este comando permitirá que los 
programadores creativos dispon- 
gan de un buen repertorio de me- 
lodías y efectos sonoros. 


Otro de los puntos fuertes de 
este comando es que permite con- 
trolar, por medio de la misma, sali- 
das que el RS232, cualquier ins- 
trumento electrónico que posea 
MIDI (Mical Instruments Digi- 
tal Intérface). La mayoría de los 
sintetizadores y cajas de ritmo lo 
tienen, por lo que podremos hacer 
que interpreten melodías escritas 
en el ordenador. 


En resumen, aunque se podría 
haber dépurado algo más el diseño 
de este «hijo espanol» de Sinclair, 
las modificaciones y anadidos se 
agradecen, y llenan algo el hueco 
que dejaba el Spectrum y explota- 
ban los МЗХ, Commodore o Ams- 
trad. Esperemos que Investrónica 
aproveche que el nuevo sistema 
operativo reside en EPROM para, 
sin perder la compatibilidad, limar 
los pequeños bugs e ir mejorando 
esta ampliación del operativo más 
amado, odiado y destripado de la 
historia de los ordenadores domés- 
ticos. 


Reunión K 


Sin otro propósito que el pasar un buen rato 
intentando derrotar al adversario (humano o 
Spectrum), Reunión K es un juego de lógica у 
estrategia con una magnífica presentación. 
Entre sus características figuran: 
e Gráficos tridimensionales 
e Sonido 
Ф Tres niveles de dificultad 

Marcador multipartidas 
e Instrucciones incorporadas 
El jugador que consiga el último encuentro 
entre canguros (el nombre del juego significa 
precisamente reunión de Kanguros) se 
proclamará ganador. 


J. J. Urios 


¡ecospectrum 
PROGRAMAS 


10 LET tjui=0: 
SUB 5100 

14 INK 6: 
LS 

15 60 SUB 9000 

20 INK 6: CLS 

22 LET ronda=0 

25 PRINT АТ 6,8; "ELIGE OPCION" 


LET tju2-0: 60 


РАРЕК O: BORDER 0: C 


ЗО РКІМТ АТ 12, DOS JUGA 
DORES" 
32 PRINT AT 13.2:"3. JUEGAS C 


к" 
ТНЕМ 60 TO 55 


ЗӨ ВЕЕР 
57 IF ІМКЕҮФ= 


.02,68 


THEN LET nju 
ва TO 40 
B IF INKEY$-"?" 
ва TO 40 

50 TO 
LET tur=1 
IF ІМКЕҮФ< 


THEN LET nju 


THEN 60 TO 6 


IF nju-2 THEN 60 TO 97 
CLS 
PRINT АТ 6. ELIGE OPCION" 
PRINT AT 12,2:" NIVEL DE D 
IFICULTAD (1-3) 
72 IF INKEY$-"" THEN БО TO 72 


74 ВЕЕР .02,68 

78 IF INKEY$?"O" 
" THEN LET dif-VAL ІМКЕҮФ: 
0 78 

80 60 TO 65 


AND ІМКЕҮФ< "4 
GO T 


98 IF INKEY$<>"" THEN GO TO 9 | 3026 IF alt=t(n,3) THEN LET eq= 


8 eq+1: LET r(eq)-n 
99 CLS : GO SUB 5000: PRINT АТ | 3027 IF alt<t(n,3) THEN LET alt 
9,0:tjui1;"-";t;u2 =t(n,3): LET eq-1: LET r(eq)=n 


100 IF nju-2 AND tur=1 THEN 60 3030 LET х= (п, 5): IF x>3 THEN 
SUB 1000: GO SUB 2000: GO TO 10 | LET 9g(3)=g9(3)+1: LET х=х-4 

о 3040 IF x51 THEN LET 92) =9 (2) + 
110 IF nju-2 AND tur-2 THEN 60 is LET Ж 2 

SUB 2000: GO SUB 1000: 60 TO 10 3050 IF x>0 THEN LET 9(1)=9(1)+ 
о т 

120 IF пјц=5 AND tur=1 THEN GO 5060 NEXT n 

SUB 1000: GO SUB 3000: GO TO 10 3070 LET y=0 


o 3080 FOR n-1 TO Ж: IF gí(n) XIN 
130 60 SUB 3000: GO SUB 1000: 6 | T (g(n)/2) THEN LET y=y+n+(n=3) 
Ü TO 100 3085 NEXT n 

1000 LET opc-1: LET ога=0: GO SU | 5090 IF y<>0 AND гопда>10-91+ж5 
B 4000: RETURN THEN 60 TO 5120 

2000 LET opc-2: GO SUB 4000: RET | 3100 LET ca=r (1+INT, (RNDXegq)): L 
URN ET av=1+INT (tí(ca,3)XRND): 60 SU 
3000 REM tirada de ordenador B 4000: 60 TO 2999 

3001 LET ronda=ronda+1 3120 FOR n-1 TO 8: LET r(n)-n: N 
3005 LET LET ord-1 EXT n 

3010 DIM DIM r (8) 5125 РОК n-1 TO 8 

3015 LET 


LET alt=0 3130 LET rnd-1*INT (RNDX(9-n)) 
3020 FOR n-1 TO 8 3135 LET ca-r (rnd) 


5140 LET r (rnd)=r (9-п) 
IF t(ca,3)-O THEN GO TO 32 


3145 LET guar=t (са, 3) 

3150 FOR m=1 TO t(ca,3) 

3170 LET t(ca,3)-t(ca,3 

3175 LET у=0 

3180 60 SUB $500 

3190 LET # (са, 3)-guar 

3195 BEEP .003,17: PRINT AT 11,2 

6; INK т+1; "РІЕМЅО" 

3200 IF у-О THEN LET av-m: 

0 3230 

5210 NEXT m 

3220 NEXT n 

3250 PRINT АТ 11,26;" » 

3240 60 SUB 4000 

3499 RETURN 

3500 DIM g(3): FOR k=1 TO 8 

5510 LET x=t(k,3)8 IF x>3 THEN 

LET g(3)=g(3)+1: LET x=x-4 

3520 IF x>1 THEN LET g(2)=g(2)+ 
1: LET x=x-2 

3550 IF x>0 THEN LET g(1)=g(1)+ 
1 

3560 NEXT k: LET y=0 

3580 FOR k=1 TO 3: IF g(k)422XIN 

T (g(k)/2) THEN LET y=y+k+(k=3) 

5590 NEXT k 

3999 RETURN 

4000 PRINT ІМК орс+4 АТ (орс=1) 

+ (орс=2) X14, (орс=1) + (орс=2) #22; 
INVERSE 1; FLASH 1; "JUGADOR "¿op 

с 

4010 PRINT АТ (opc-1)X2*(opc-2) X 
15,(opc-1)*(opc-2) X22; INK opc+4 
$"CASILLA "; FLASH 1;"?";СНБ$ 8; 

4015 LET clo=0 

4020 LET m$-INKEY$: 

N LET m$-STR$ ca 

4022 LET clo-clo*i: IF clo=30 TH 

EN LET clo-0: BEEP .02,RNDX-20 

4024 IF m$-"" THEN 60 TO 4020 

4030 BEEF .002,44 

ДОДО IF m$<"1" OR m$>"8" 

0 TO 4020 

4050 IF t(VAL m$.3)=0 THEN PRIN 

T INK орс+4;АТ 21,0; "CASILLA "; 

m$:" BLOQUEDA. ELIGE OTRA": ВЕЕР 
.9,0: BEEF .09,-10: ВЕЕР .5,-2: 
60 TO 4000 

4060 LET ca-VAL m$: 

4070 PRINT AT 21,0;" 


THEN GO TO 4 


)-m 


60 T 


IF ord-1 THE 


THEN G 


PRINT m$ 


4075 IF ІМКЕҮФ<>"" 
075 


4080 PRINT АТ (орс-1)Ж5%(орс-2)Ж 
16, (opc=1)+(opc=2)x22; INK орс+4 
s "AVANCES ?":СНКФ% 8; 
4090 LET m IF ord-1 THE 
N LET m$-STR$ av 
4095 LET clo=clo+1: 
BEEF 
THEN 
4100 BEEF .002,44 
IF m$»"5" OR т%<"1" 
0 TO 4080 

IF t(ca,3)<VAL m$ THEN РКІ 
NT INK орс+4;АТ 21,0; "NO PUEDE 
AVANZAR "im$;" EN CASILLA "sca: 
ВЕЕР .5,0: ВЕЕР .09,-10: ВЕЕР .3 
.-2: 60 TO 4000 

4120 PRINT m$: LET av=VAL m$ 
4121 PRINT ІМК орс+4 АТ (opc-1) 
%(орс-2) £14, (орс=1) + (орс=2) X225" 
JUGADOR "iopc 

4130 FOR 1-1 TO av 

4140 LET сіс-і: 50 SUB 6000 

4145 LET xan-x: LET уап=у 

4150 IF opc-1 THEN LET t(ca,1)= 
t(ca,1)+1 

4155 IF opc=2 THEN LET t(ca,2)= 
t(ca,2)-1 

4160 LET cic=1: 
4165 GO SUB 6500 
4170 LET cic=2: 
4180 NEXT 1 

4190 LET t(ca.3)-t(ca,3)-av 


IF clo-30 TH 
-O2,RNDX-20 
60 TO 4090 


THEN 6 


50 SUB 6000 


50 SUB 6000 


4200 IF Е(са,5)=0 THEN LET ncab 
lk=ncablk+1: GO SUB 8000 

4210 IF ncablk-8 THEN GO TO 700 
o 


4999 RETURN 

5000 DIM t(8,3) 

5005 LET ncablk-O 

5020 FOR n-7 TO О STEP -1 
5025 LET t(n*1,1)-1 


5050 LET t(n+1,2)=8 
5055 LET t(n+1,3)=6 
5040 FOR m=0 TO 7 


5050 IF n<>0 AND n<>7 THEN FLOT 
S*nXió6*mX16,39*nX16: DRAW 12,0: 
DRAW 8.8: DRAW -12,0: DRAW -8,- 

8 


5060 IF n=0 THEN PRINT AT 15.1+ 


т*2;" "SAT 16,1-mX2;" "s: INVER 
SE 1;АТ 18, тж2; т+1 
5065 IF п=7 THEN PRINT ІМК EIL 


T 1,15*mX2:" "¿AT 2.154mx2;" = 
¿AT 0,15+тж2; INVERSE 1;т+1 
5070 NEXT m 

5090 NEXT n 


5094 INK 5: PLOT 0,174: DRAW B6, 


0: DRAW 0,-40: DRAW -86,0: DRAW 
0,40 

5095 PLOT 2,172: DRAW 82,0: DRAW 
0,-36: DRAW -82,0: DRAW 0,36 


5096 INK 6: PLOT 168,70: DRAW 86 


‚О: DRAW 0,-40: DRAW -В6.0: DRAW 
,40 

3097 FLOT 170,68: DRAW 82,0: ОКА 

W 0,-56: DRAW -82,0: DRAW 0,36 

5099 RETURN 

5100 RESTORE 5200 

5105 FOR n=0 TO 31: READ а: РОКЕ 
USR "a"+n,a: NEXT n 

5199 RETURN 

5200 DATA 0,20,25,26,58,206,31,1 

15 

5210 DATA 142,54,127,63,26,114,2 

04,24 


5220 DATA 0,36,21,26,28,72,41,62 
5230 DATA 47,90,247,255,245,93,8 
9,204 

6000 LET y=(opc=1)Xt (са, 1) Ж2+ Cop 
c-2)Xt(ca,2) X2-1 

6010 LET х=са*2-1 

6020 LET х=х+ (орс=1) ж2% (8-+ (ca, 1 
)) + (орс=2) X2X (8-t (са,2)) 

6040 FOR п=1 TO cic 

6050 PRINT OVER 1; INK орс+4; АТ 
y,XsCHR$ (142+opcx2);AT у+1,х;С 
НЕФ (145+орсж2) 


6055 ВЕЕР .003,RNDx60 

6060 МЕХТ п 

6099 RETURN 

6500 FOR m--1 TO 3 

6510 PLOT хапж8+т. 162-уапж8+т 
6520 DRAW OVER 1; INK opc+4;8,0 
6590 NEXT т 

6594 IF opc=1 AND + (са, 1) =2 THEN 


INK S: PLOT хапж8+2, 16ё-уапж8: 


DRAW -2,10: 
о 
6596 IF opc-2 AND + (са, 2) =7 THEN 
INK ó: PLOT xanX8-2,160-yank8: 
DRAW -6.-9: DRAW 8,0: DRAW 6,9 
6599 RETURN 
7000 РКІМТ АТ 21,0; FLASH 
A JUGADOR "; орс: PAUSE 140 
7003 PAUSE 140 
7005 LET tjui=tjul+(opc=1) 
7006 LET tjuz=t ju2*(opc-2) 
7010 CLS : PRINT АТ 8,12; "MARCAD 
OR"sAT 12, "JUGADOR 1 — "¿tjul; 
" JUGADOR 2 - "ztju2 
7015 PRINT АТ 15,5; "Ри1 ѕа BREAK 


DRAW 8,0: DRAW 2,-1 


1:"бАМ 


раға continuar": PRINT USR 1514 
7020 PAUSE O 

7050 60 Т0 20 

8000 LET y-169-t (са, 2) X16 

8004 LET х=16% (са+8-+ (са, 2) ) –10 
8020 PLOT ІМК 2:х+2,у 

8031 PLOT ІМК 2;х+24,у+16 

8099 RETURN 

9000 LET ink=5: LET m$=" Do 


= grupos de canguros se avistan 
y corren a encontrarse. ү 

9002 60 SUB 9100 

9005 LET m$-" Como se sabe 
no demuestra buen comportamient 
O quien mas prisa tenga." 

9010 GO SUB 9100 

9020 LET т%=" А pesar de la 
impaciencia,hay que procurar qu 
e sea un can-guro de tu grupo e 
1 ultimo en reunirse con su cor 
respondiente tocayo." 

9050 60 SUB 9100 

9040 LET m$=" Solo de esta 
forma puedes ser considerado gan 
ador. 


9050 GO SUB 9100 

9060 LET m$-" PULSA .ENTER. 

А COMENZAR" 

9070 G0 SUB 9100 

7080 PAUSE O 

9099 RETURN 

9100 ВЕЕР .OO4XRND,2OXRNDs: РКІМТ 
INK inksm$%( TO 2); 

9110 LET m$-m$(3 TO ) 

9120 IF LEN m$<3 THEN PRINT m$: 


FAR 


PRINT : LET ink=ink+1: RETURN 
9130 GO TO 9100 

9999 SAVE "Reunion K" LINE 1: GO 
TU 9999 


Programación 
lineal 


Dentro de los métodos de resolución de 
problemas de ingeniería, existe uno que es 
particularmente conocido por sus múltiples 
aplicaciones. Nos referimos a la programación 
lineal, Esta rama de la ciencia goza de gran 
aceptación entre los ingenieros y es el tema 
sobre el que versa el programa que nos envía 
Juan Luis Martínez. 

El programa combina tres métodos para la 
resolución de problemas de maximización de 
resultados. La matriz x(n) es el vector de 
variables de decisión, c(n) es el vector de 
coeficientes de recursos, b(m) el vector del 
segundo miembro de las restricciones y a(m, n) 
es la matriz de los coeficientes de las 
restricciones o matriz tecnológica. 

Los métodos que se combinan son el símplex, 
el dual y un método de programación entera. 


10 PAPER 6: INK O: BORDER 6: 
CLS : POKE 23609,100 

20 PRINT AT 6,63 PAFER 2; INK 
7; FLASH 1: "PROGRAMACION LINEAL" 


PLOT 47,119: DRAW 153,0: DRAW 
0,9: DRAW -153,0: DRAW 0,-? 

30 PRINT АТ 10,7; PAPER 2; INK 
7s FLASH 1;"Рағе el cassette": 
PLOT 55,87: DRAW 127,0: DRAW О, 

9: DRAW -157,0: DRAW 0,-9 
40 РАТМТ АТ 14,8; PAPER 2; INK 


7; FLASH 1;"Pulse una tecla": Р 
LOT 63.55: DRAW 121,0: DRAW 0,9: 

DRAW -121,0: DRAW 0,-9 

SO PRINT АТ 20,5; Martinez 6 
omez 1985": PAUSE 0: CLS 

60 GO SUB 180: FRINT AT $.0;" 
Este programa combina el  algo- 
ritmo del simplex, el dual y un 
metodo de programcion entera 
para resolver problemas cuya - 
expresion general sea:" 

70 FRINT АТ 9,03" Мах 
c(2)xw2+...+c (п) хп" 

80 PRINT АТ 11,04" 


€(1)x1+ 


s.a а(1,1)х 


1+...+a(1,nyxn< а(2,1)х 
1+... +ас(2, п) хп<=6 (2 - 
= atm,1)x 
1%...жа(т,п)х b im)" 
90 PRINT AT 18,0;" x(i)>=0 
i-1.2....,n": GO SUB 190 


100 БО SUB 180: PRINT АТ 3,03"N 
Ota: Los coeficientes se han de 
introducir con su correspondien 
te signo. E 
jemplo: 


x (1) >-0, 


x (2) >= 


110 PRINT АТ 15,05” 
(1)= 2 


s 60 SUB 190 

120 60 SUB 180: PRINT АТ 5,04" 
А1 aplicar este metodo арағе- 
сеп n+m soluciones, desde la п+1 
hasta la п+т son las denomina- 
das variables de holgura, 
corresponde una por cada 
triccion. 


que — 
res- 


А1 completar cada restriccion - 
con una nueva variable,estas ya 
no se cumplen como restriccio- 
nes de desigualdad, sino como — 
restricciones de igualdad.": GD 
SUB 190: GO TO 200 

130 INFUT "Deseas instrucciones 

(s/n) ? "zas 

140 IF a$-"s" THEN 60 TO 60 

150 IF a$<>"s" THEN 60 TO 200 

180 FRINT АТ 1,6; ҒАРЕК 2; INK 
7: FLASH 1; PROGRAMACION LINEAL" 
: PLOT 47,159: DRAW 153, DRAW 
0,9: DRAW -155,0: DRAW 0,-9: КЕТ 
URN 

190 PRINT AT 20,8; 


PAPER 2; INK 


7; FLASH 1;"Pulse una tecla": P 
LOT 65,7: DRAW 121,0: DRAW 0,9: 
DRAW -121,0: DRAW 0,-9: PAUSE О: 


CLS : RETURN 

199 REM ЖЖЖ entra datos XXX 

200 INPUT "Numero de incognitas 
PRINT "Numero de incogni 
:n?*"Correctu 7- өтер 
CLS : IF INKEY$-"n" THEN 
200 

210 INPUT "Numero de restriccio 
nes m-"im: PRINT "Numero de rest 
ricciones m- ыйа. = ж T? 
fm)": PAUSE Oz ELS IF ІМКЕҮ 
n" THEN 60 TO 210 


AUSE О: 
60 TO 


ts 


ROSRAN I 
Este programa c 
ritmo det simp L. 
metodo “де pro 
рага resolver р 
expresión gener 
Мақ c(1l1l1x1+c (ә 
5,а а{1,1)х1+.„, 
а сетка 

. 


а(т,13Х1%...жа(т,п 


x (i) >=@ 


220 IF т<2 ТНЕМ РБІМТ АТ 10,0; 
" El numero de ecuaciones т ha 

de se mayor о igual que 2 
y. ME PAUSE 2 CLS z 69 


230 DIM а(т,п): DIM cín): DIM b 
(m) 

240 PRINT " Introduce coeficie 
ntes.de"*'" recursos; cina. 
250 FOR ¿=1 TO n 

260 INPUT Ceci 
270 NEXT j 

280 CLS : PRINT "Introduce coe 
ficientes  segundo"^'"miembro re 
stricciones; bí(m)." 

290 FOR i-1 TO m 

300 INPUT ("Ьі н) =") Ьсі) 

> NEXT i 


ШЕТТЕ 


520 CLS : PRINT " Introduce co 
eficientes"'*" tecnicos; a(m,n) 
) FOR 1=1 TO m TO n 

INPUT "а"; =“) sa 


= што 
++ x ео-ха 


350 NEXT j: NEXT 
360 CLS : PRINT 


$ 
РАРЕК 7:" Сое+ 


icientes de recursos cin): "s FR 


INT 

370 FOR j=1 TO п: 
Me ec NEXT 3 
380 PRINT “0: РАР 
rregir errores pul 


PRINT "с" 


ЕК 7%" Fara со 
sec Cualqui 


er ойға para seguir m": PAUSE 


о 
390 IF INKEY$-"c" 


THEN  INFUT " 


Numero coeficiente erroneo "3j: 


INFUT ("Introduce 
nte eingje 
560 

400 CLS : PRINT 


nuevo coeficie 
scle 60 TO 


РАРЕК 7;" Coef 


icientes de recursus bin): "s PR 


47 TO me 
bli): NEXT i 

PRINT “Q: РАР 
rregir errores pul 


PRINT ts 


ER 7s" Fara co 
se c Cualqui 


er otra para seguir ": FAUSE 


о 


430 IF INKEY$-"c" THEN INPUT " 
Numero coeficiente erroneo "ii: 


INFUT ("Introduce nuevo coeficie 
nte bc"sis'")-");b(i): БО TO 
400 

440 CLS : PRINT  FAPER 7; 
icientes tecnicos а(т, п): ": РВ 
INT 2 

450 FOR i=1 TO m: FOR j;-1 TO n: 
PRINT "аста '")z"sa(i,.j)0: 


NEXT j: NEXT i 


460 PRINT “Оҙ PAPER 7;" Para co 


rregir errores pulse c Cualqui 
er otra para seguir ": PAUSE 
o 

470 IF ІМКЕУФ-"с" THEN  INFUT " 


Subindices coeficiente erroneo " 


.i.j* INPUT ("Introduce nuevo co 
eficiente =D 
a(i.j): GO TO 440 


480 G0 SUB 980 

499 КЕМ ЖЖЖ tabla inicial ЖЖЖ 
500 DIM s(m+1,m+n+1) 
510 FOR ісі TO m+1: 
n+m+1 

520 IF i<m+1 AND j<n+1 THEN LE 
T s(i,j)=a(i,j) 

550 IF i<m+1 AND (п< ;<т+п+1) АМ 
D і-ісп THEN LET s(i,j)=1 


FOR 5-1 TO 


540 IF j=m+n+1 AND i<m+1 THEN 
LETS (1; bti) 
550 IF т+1 AND 35п+1 THEN LE 


T s(i,j)=-C(j) 

560 NEXT j: NEXT i 

590 LET cs=0 

599 КЕМ ЖЖЖ algoritmo Жжжж 
600 FOR j=1 TO mèn 

610 IF s(m+1.j)<O THEN 60 TO 1 
620 NEXT 3 

630 FOR i-1 TO m 

640 IF s(i,m+tn+1)<0 THEN 60 TO 


650 NEXT i 
655 60 TO 900 
660 DIM x(n*m) 


670 FOR ісі TO пеп: LET cont=0: 


690 IF s(i,j)-1 THEN LET cont- 
cont+1: LET f-i 

700 IF s(i,3)=0 THEN 
=conti+1 

710 NEXT i 

720 IF cont=1 AND conti=m THEN 
LET x(j)=s(f,m+n+1) 


LET conti 


730 NEXT i 
740 CLS : РКІМТ АТ 0,0; FAPER 7 
s" Las soluciones al problema qu 
e me ha planteado son : 
"s PRINT 
750 FOR i-1 TO n+m 
760 PRINT TAB 3s"x("si; 
) 
770 NEXT i 
780 FRINT : PRINT РАРЕК 7;" El 
valor de la funcion objetivo es 
FRINT : PRINT TAB S:s(m+1,m+n+1> 
785 60 SUB 950 
790 CLS 2 PRINT *0; PAPER 73" P 
ara ver ultima tabla pulse t E 
P 
F 


ara empezar pulse e 
ara terminar pulse + 


ara p. entera pulse p "з 
FAUSE О 

ВОО IF INKEY$="e" ТНЕМ CLS : G 
O TO 130 

810 IF INKEY THEN STOF 
820 IF INKEYS: THEN 60 TO В 
40 

825 IF INKEY$-"p" THEN 60 TO $ 


830 IF ІМКЕҮФ< >"е" OR ІМКЕҮФ< >" 

+" OR INKEY$<>"t" THEN 60 TO 80 

о 

840 CLS : FRINT АТ 0,0; 

СЫП Ultima tabla: 
"s PRINT 

850 FOR i-1 TO m+1: 

m+n+1 

860 PRINT TAB 

="3s(i,j) 

870 NEXT j: NEXT i 

880 60 SUB 950 

890 GO TO 790 

900 LET conti= 

910 IF sí(m*1,; 

ti=cont1+1 

920 NEXT 5 

930 IF сопёі >т THEN CLS : PRIN 

Т AT 10,05" El problema posee mu 

ltiples so- luciones. He calcula 

do una de ellas.": GO SUB 950 

940 GO TO 660 

950 РКІМТ “0; 


РАРЕК 7 


FOR і-і TD 


“з("р1:", 


: FOR j=1 TO m+n 
=O THEN LET con 


РАРЕК 7;" 


Fulse una tecla "s PAUSE 
о: RETURN 
960 IF cs-2 THEN CLS : FRINT А 


Т 9,0; "М puedo continuar ni apl 
icando el algoritmo de simplex 
ni el algoritmo dual, la soluci 


TODOSPECTRUM es una publi- 
cación mensual que lé ayudará а 
obtener el máximo partido a su 
SPECTRUM у al ZX 81. 


CONOZCA LAS VENTAJAS DE SUSCRIBIRSE А 


ADEMAS, ге hacemos un 25 % DE DESCUENTO 
sobre el precio real de suscripción (12 números) 


VALOR REAL DE OFERTA ESPECIAL 
SUSCRIPCION DE SUSCRIPCION USTED AHORRA 
23660 ртдз. 2.700 PTAS. 900 PTAS. 


APROVECHE AHORA esta oportunidad irrepetible para suscribirse a TO- 
DOSPECTRUM. Envie HOY MISMO la tarjeta adjunta a la revista, que no 
necesita sobre ni franqueo. Deposítela en el buzón más cercano. Inmediata- 
mente recibirá su primer ejemplar de TODOSPECTRUM más el REGALO. 


AA A A A A A E PREMIA 


Bravo Murillo, 377 
28020 MADRID 


сл A lO Q—————ÀÀ ÀÁÁÀÓÓ = 


on es ilimitada.": 60 SUB 950: 
50 Т0 790 

970 RETURN 

980 CLS : PRINT АТ 9,5; FAFER 2 
s INK 7; FLASH 1;"Realizando ope 
raciones"; PLOT 39,95: DRAW 177, 
о: DRAW 0,9: DRAW -177,0: DRAW О 
sen 

990 FRINT AT 11,7; PAFER 2; INK 
7; FLASH 1; "Еѕреғе “un momento" 
2 PLOT 55,79: DRAW 145,0: DRAW О 


.9: DRAW -145,0: DRAW O, FRIN 
T AT 20,5; Martinez Gomez 1785 
995 RETURN 

999 КЕМ ЖЖЖ simplex XXX 

1000 LET min=s(m+1.1): LET c=1 
1010 FOR j TO m*n 

1020 IF mi (m*i,;) THEN LET m 


inzsmtl,; 
1030 NEXT j 
1040 LET $=0: 


LET сті 


FOR 1=1 TO m 


1050 IF s(i,c)>0 THEN LET mini- 
=(і,т+п+1) /5(1,с): LET s=s+1: LE 
T f=i: LET i-m 


1060 NEXT i 

1070 IF s=0 THEN LET cs-cstl: G 
О SUB 960: 60 TO 2000 

FOR i-2 TO m 

IF s(i,c)é£-0 THEN БО TO 11 


IF s(i.m+n+1)/s(i,c)<Xmin1 Т 
LET mini-s(i,mtnt1)/s(i,c)s 
+= 

NEXT i 

LET ope=s(f,c) 

1130 FOR і-і TO m+n+1 

LET s(f, j)2s(f. 3) /ope 

NEXT 3 

FOR i-1 TO m+1 

IF і<>Ғ THEN LET оре=- (5 (і 
Е) Ж5(+,С)) 


1180 IF i-f THEN GO TO 1220 
1190 FOR ізі TO m+n+1 
1200 LET s(i, 5) == (4,5) Kope*s ti, j 
NEXT j 
NEXT 1: LET cs=0 
60 TO 600 


REM XXX dual XXX 


2000 LET min-sí(1,m*n*1): LET f-1 
2010 FOR j=2 TO m 
2020 IF min?s(j;,m*n*i) THEN LET 


min=s(j,m+n+1): 
2030 NEXT j 
2040 LET s-O: 


LET +=5 


FOR ісі TO mtn 


2050 IF s(f,1)<O AND s(m+1,1)>= 

THEN LET mini=ABS (s(m+1,i)/s( 
faid): БЕТ s-sti: LET c-i: LET ài 
=m+n 

2060 NEXT i 

2070 IF s=O THEN LET cs=cs+1: G 


O SUB 960: 60 TO 1000 

2080 FOR 2 TÜ n 

2090 IF s(f,i)>=0 THEN 60 TO 21 
10 

2100 IF ABS (s(m+1,i)/s(f.i))<mi 


ni THEN LET mini-ABS 

5(#,1)): LET c=i 

2110 NEXT i 

2120 60 TO 1120 

2999 REM XXX p. entera XXX 

3030 CLS : GO SUB 980 

3040 DIM r (m) 

3050 FOR i=1 TO m 

3060 LET r(1)-s(i,.mtn*t1)-INT s(i 
sm+n+1) 

3070 NEXT i 

3080 LET max=r (1): 

3090 FOR i-2 TÜ m 

5100 IF max<r (i) THEN LET max-r 
(i): LET fsi 

3110 NEXT i 

3120 LET m=m+1 

3130 DIM a(m+1,m+n+1) 

3140 FOR j=1 TO m+n-1 

3150 IF s(f,j)<>INT s(f.j) AND s 
(Ғ,31<0 THEN LET a(m,j)=-(1+s (f 
4409 

3160 IF s(f,j)<>INT s(f,j) AND s 
(+, ;)>О THEN LET а(т, 3) =—5(#, j) 

3170 NEXT j 

3180 LET aím,m*n)-71: 

*1)--max 

3190 FOR 1=1 TO m-1 
3200 FOR ¿=1 TO m*n-i 
3210 LET a(i, j)-7s(1,.5) 

3220 NEXT j 

3230 LET a(i,m+n+1)=s(i,m+n) 
3240 NEXT i 

3250 FOR j=1 TO m+n-1 

LET аќт+і, 3) == (т, j) 

NEXT j 

LET a(m*1,m*n*1)-s(m,m*n) 

DIM s(m+l,m+n+1) 

FOR ізі TO m+1 

FOR ісі ТО m+n+1 

LET ва, 50 

NEXT j: NEXT i 

60 TO 600 

SAVE "P. Lineal" 
"F. Lineal" 


(s(m+1,i)/ 


LET ES 


LET a(m,m*n 


LINE 10: V 
ERIDY 


SOFTWARE SPECTRUM | a 


SATA. V.3° 4.000 
Base de datos con cálculos. 

Alcomprar esta versión abonamos 3000 ptas. por cual- 
quier versión anterior. 

Context V.9* 

Tratamiento de Textos. 

Funciona con cualquier impresora. 
Acentos graves y agudos. 

Al comprar esta versión abonamos 3.000 ptas. por 
cualquier versión anterior. 

Adaptador SITI-CONTEXT 

Permite pasar información del SITI al CONTEXT. 
M.D.S. - Sistema Operativo para 
Microdrive 7.000 
Conjunto de nuevos comandos BASIC que permiten Ac- 
ceso Aleatorio a Ficheros en Microdrive con un tiempo 
medio de acceso de 4 segundos. 

CONTABILIDAD РІМ" 

Plan contable 200 cuentas, 2.000 asientos. 
Hasta 9000.000.000 Balance con activo-pasivo, cta. resul 
tados, Utiliza el SO.M.DS. Cualquier impresora 80 col 
Kit Utilidades Discovery 1 3.000 
utilidades CAT extendido. ON ERROR. Compactador 
de discos, etc. 


AJUSTE DE CABEZALES 


4.000 


3.000 


CASSETTE 2.500 
SINTETIZADOR DE VOZ 3.000 
MULTI-COPYS (Copys desde 2 cm. 

hasta 70 cm.) 3.000 
COPY GRISES (F+, SP-800, 

SP-1000, GP-550) 2.500 
COPY RS-232 2.500 
COPY SERIE RITEMAN F+ 2.500 
EDITOR 64 (64 columnas 

en pantalla) 2.750 


“Disponible en disco para Discovery 1 al precio de 
5000, ptas. 


Sistema 


PIN SOFT, S.A. 


Paseo de Gracia, 11 - Esc, C., 2° 4* 
Tel. (93) 318 24 53 - 08007 Barcelona 


NOVEDADES 


Sistema experto de Flores 

de jardín 

Sistema experto de Minerales 
APLICACIONES SITI V.3 


(necesita el SITI УЗ) 


3.500 
3.500 
3.500 


Agenda « Videos Contabilidad doméstica + Stocks, etc 


VIDEOJUEGOS 


COMANDO 

CRITICAL MASS 

DAM BUSTERS 

FIGHTING WARRIOR 
GYROSCOPE 

HIGHWAY ENCOUNTER 
OLE TORO 

RAMBO 

SABOTEUR 

SGRIZAM 

SUPERMAN 

THE WAY OF EXPLODING FIST 
WEST BANK 

Y TODAS LAS NOVEDADES. 
Solicita catálogo. 


ге 
o+ Softwa! 
Lápiz PP 


HARDWARE SPECTRUM 


Interface sonido TV 
Interface Joystik 


Taos | Joystick Quickshot I 
1954 | VF Centronics 

1875 | Lápiz óptico+software 
1896 | Interface monitor 

1598 | Cinta virgen 15" 

1875 | Monitor Ciaegi f. verde 
1:875 | Monitor Ciaegi f. ámbar 
1896 | Caja para 12 microdrives 
1.741 | Teclado Saga 1 

244 | Teclado Saga 3 

2.054 | Discovery 1« disco Kit 
Aqui | Diskettes 3 1/2 


Cable impresora Discovery 
Alimentación ininterrumpida 
Digitalizador de imágenes 
Impresora Riteman F+ 


3.500 
2.000 
2.600 
8.000 
4.850 
3.900 
100 
24.000 
24.750 
100 
11.000 
19.900 
55.000 
714 
3.500 
9.750 
35.000 
71.900 


PEDIDOS POR CORREO O TELEFONO ` 
Envios contra reembolso a toda España 
_ 200 ptas. gastos de envío : 
En tu domicilio en 3-4 días 


GENERADOR 


Cuando los fanáticos de conocer las cosas por dentro 
abrimos el Spectrum 128, aparte de no sacar nada en claro, 
vemos algunos circuitos integrados que se encuentran en el 
Spectrum de 48 Kbytes. Uno de ellos destaca por su ta- 
maño: el AY-3-8912, el músico del 128. 


1 AY-3-8912 se de- 

nomina PSG, siglas 

inglesas de Progra- 

mable Sound Gene- 
rator (Generador Programable 
de Sonido) que fue el nombre 
que dio su primer fabricante 
General Instruments, al 
AY-3-8912 y a su hermano 
mayor el АҮ-3-8910. 

El destino inicial de este cir- 
cuito era la generación de efec- 
tos especiales en máquinas de 
marcianitos y la producción de 
sonido en órganos electrónicos. 
Posteriormente, ha demostrado 
su utilidad para sonorizar di- 
versos ordenadores y actual- 
mente, es raro el ordenador 
personal para el que no se haya 
editado alguna vez un artículo 
llamado algo así como «Haga 
música con su XXX». Montaje 
utilizando el GI AY-3 8912». 

La importancia que tiene y 
ha tenido este dispositivo en el 
mundo informático se debe a la 
flexibilidad de su diseño, que 
impide que se quede obsoleto. 

A continuación vamos a des- 
cribir la función de cada una de 
las patas del PSG. 

DA0-DA7: forman el bus de 
datos para comunicarse con el 
microprocesador. Sirven para 
seleccionar el registro de con- 
trol a modificar y para enviar o 
recibir su valor, según el proto- 
colo que veremos más adelante. 

A8: sirve exclusivamente 
para añadir un bit de identifica- 


ción del PSG en sistemas que 
dispongan de más periféricos. 
Para seleccionar el PSG debere- 
mos poner A8 a nivel lógico 
«1» (+5 voltios). 

BDIR, BC2, ВСІ: estas líneas 
indican al PSG el significado 
del valor puesto en DA0-DA7 
o que se quiere leer de él, según 
la tabla 1. De este modo, a cam- 
bio de mayor complejidad in- 
terna del chip, conseguimos una 
gran simplificación tanto de la 
circuitería exterior como del 
soporte lógico (sofiware) de fun- 
cionamiento del equipo. 

10А0-ІОА?: son las líneas 
externas del puerto de entrada y 
salida A, que analizaremos más 
adelante. 

ТЕ8ТІ: Es un punto que uti- 
liza el fabricante para compro- 
bar el buen funcionamiento del 
PSG antes de ponerlo a la ven- 


ta. La única recomendación 
que General Instruments hace 
para su buen funcionamiento es 
que se deje sin conectar a abso- 
lutamente nada. 

CLOCK: Entrada de reloj 
tipo TTL, utilizada como base 
de tiempos para la generación 
de tonos, envolventes y ruidos. 

Усс, Vss: Tensiones de ali- 
mentación +5 y 0 voltios, res- 
pectivamente. 


Lectura y modificación 
de registros 


Vamos a estudiar ahora 
cómo dar valores a los registros 
y leer. 


Ante todo analizaremos el 
sistema general de escritura en 
el PSG. El sistema será: a) po- 
ner el valor a escribir en 


DE SONIDOS 


DA0-DA7; b) poner los valores 
adecuados еп BDIR, ВСІ y 
BC2 (típicamente BDIR=1, 
BC2=2, y BCl=1 para escribir 
una dirección y ВС=0 para dar 
valor a un registro). 

Para leer un valor, habrá que 
poner primero los valores ade- 
cuados en BDIR (0), BC1 (1) y 
ВСІ (1) y a continuación leer el 
dato en DA0-DA7. 

De este modo, el proceso 
completo para dar un valor a 
un registro es a) realizar una 
operación de escritura con 
BC1=1 y DA0-DA3 con el nú- 
mero binario que represente el 
número de registro a modificar. 
A continuación, realizaremos 
otra operación de escritura con 
ВСІ-0, y DA0-DA7 con el уа- 
lor a meter en el registro. 

Para leer el valor de un regis- 
tro, se deberá hacer una opera- 
ción de escritura como la pri- 
mera que se realizó para escri- 
bir en un registro, y a continua- 
ción una operación de lectura, 
leyendo en DA-DA7 el valor 
del registro pedido. 


Generación de tonos 


La generación de tonos se 
realiza mediante dos contado- 
res. El primero de ellos toma 
como valor inicial el número de 
12 bits contenido en el registro 
de control de tono del canal co- 
rrespondiente (RO y КІ para el 
A, R2 y R3 para el B, R4 y R5 


El chip 
AY-3-8910 
esel 
responsable 
delas 
increibles 
posibilidades 
musicales 
del MSX 


ESCRIBE DATO 


ESCRIBE, DIRECCION 


Tabla 1: Modos de 
transferencia seleccionados 
según el estado de BDIR, ВСІ 
y BC2, 


Vista superior 


Canal C DAO 
Test 1 DA1 
Усс( 5Y)d3 DA2 
Canal B га DA3 
Canal A DA4 
Vss(GND) 9 D DAS 
10A7 AY-3-8912 Bi DAG 
10А6 DA7 
10A5 BC1 
10A4 BC2 
1043 BDIR 
10А2 A8 
1041 ВЕ5ЕТ 
1040 CLOCK 


Distribución de las señales en el AV-3-8912. 


ак 
Din [б 0 ]— — — 9 Dout 
ая = 
кы Qout 
Qin 
| | 
RES 
Esquema del bloque base. 
+5 
CLOK ш 
K Q Esquema de divisor. 


para el C) y va quitándole 1 
para cada dos ciclos de reloj ex- 
terno (CLOCK). Cada vez que 
este contador pasa por 0, vuelve 
a tomar el valor de registro de 
control y genera un pulso. 

Dicho pulso se utiliza como 
entrada para el siguiente conta- 
dor, que es de dos bits y por 
tanto puede tomar 4 valores 
distintos (00, 01, 10 y 11). Este 
contador suma 1 cada vez que 
recibe un impulso. Cuando lle- 
ga a 11, repite este valor y luego 
comienza a restar 1 hasta llegar 
a 00, valor que también repite 
para luego comenzar a sumar 1, 
repitiéndose el ciclo hasta que 
se ponga 0 en el registro de con- 
trol de tono. 

Si tomamos los dos bits del 
último contador y los utiliza- 
mos como entrada de un con- 
versor analógico digital, conse- 
guiremos una señal que varia 
periódicamente en el tiempo 
con la frecuencia dada por la si- 
guiente fórmula: 


fr 
e 
f= frecuencia de la señal de sali- 
da 
fr = frecuencia de reloj 
tp = valor contenido en el regis- 
tro de control de tono. En el ca- 
nal A, sería RO + 256* (valor 
contenido en los bits 0 a 3 en 
RI). 

Así pues, para conseguir una 
frecuencia de aproximadamen- 
te 440 Hz (la central del piano), 
habrá que poner en el registro 
de control un valor de 
1789772.5/(16*440) 2254, es 
decir, poner en RO el valor 254 
yen RI 0. 


Generación de ruido 


La generación de ruidos se 
realiza por un método similar, 
sólo que ahora el valor inicial 
que toma el contador es el que 
hay en el registro R6, en los bits 
0 ó 4, poniéndose ceros en los 
bits superiores. Con la señal 
que así se genera, se modela la 
amplitud de un generador de 


ruido blanco. Hay que recordar 
un detalle importante: el canal 
de ruido ез único, y lo дис ha- 
cemos es decir (mediante R7, 
como veremos después) en qué 
canales queremos oírlo. 


Generación de 
envolventes 


La generación de envolventes 
de volumen se controla me- 
diante dos registros diferentes. 
La forma la controla el registro 
R13 y la duración de la rampa 
los registros R11 y R12. 

El registro R13 de forma de 
envolvente sólo utiliza los 4 bits 
de menos peso, llamados 
CONT, ATT, ALT y HOLD, 
cuyas funciones son: 

HOLD (Mantener): si está 
puesto a nivel lógico «1», al 
acabar el primer ciclo de varia- 
ción de la envolvente, manten- 
drá el valor con el que se acabe 
la rampa (volumen máximo en 
caso de rampa ascendente o si- 
lencio en caso de rampa des- 
cendente). En caso de valer «0» 
la envolvente se repetirá cícli- 
camente. 

ALT (Alternancia): en caso 
de que valga «1», se alternan 
rampas ascendentes y descen- 
dentes. 


ҰЗ 
E 
I 

4. 


АТТ (Ataque): si vale «1», la 
envolvente comenzará con una 
rampa ascendente, еп caso con- 
trario empezará con una rampa 
descendente. 

CONT (Continuación): si 
vale «1», la forma de la envol- 
vente será la definida por el bit 
HOLD. Si no, después del pri- 
mer ciclo se volverá al estado 
de silencio. 

La duración de la primera 
rampa (y de las siguientes, si las 
hubiere) viene definida por los 


El sonido 
se genera 
mediante 
una serie de 
valores que 
se 
almacenan 
en unos 
registros 
determina- 
dos 


registros R11 y R12, segün la 
fórmula: 


2 ж 
256 256*R12+R11 


"pas 

fr 
Donde fr es la frecuencia de re- 
loj. 


Así, para conseguir que un 
sonido crezca desde el silencio 
hasta el volumen máximo du- 
rante 1 segundo, y luego calle 
por completo, habrá que poner 
el valor 4 en R13, el valor 27 en 
R12 y 79 enRI1. I 

El sistema utilizado para ge- 
nerar dichas envolventes es 
muy similar al de generación de 
tonos, con algunas diferencias: 

a) El primer contador es de 
16 bits en vez de 12. 

b) El reloj que se introduce en 
el primer contacto no se divide 
previamente por 2. 

с) El segundo contador es de 
4 bits, lo que genera 16 niveles 
distintos, y es mucho más com- 
plicado para poder ser contro- 
lado por los bits HOLD, ALT, 
ATT y CONT. 

d) El convertidor de digital a 
analógico no es lineal, como el 
de los tonos, sino exponencial, 
para contrarrestar la respuesta 
logarítmica de nuestro oído. 

Para que un canal quede 
afectado por el generador de en- 


volvente, habremos de poner el 
bit 4 de su registro (R8 para el 
canal A, R9 para el canal B y 
RIO para el canal C) de control 
envolvente a «a». Caso contra- 
rio, su volumen será el fijado 


SOSTENIDA 


x por los bits 0 ó 3 de dicho regis- 

tro, que sustituirán a la entra- 

g 5 da del convertidor D/A de en- 

Jo NISNQNINISNINININININ, volvente a los 4 bits del segundo 
|||, Ver detalle en fig 5 contador. P. 

mi lo S Mezcla final de sonidos 

‚| |, SEE Hasta ahora hemos visto 

АША cómo se genera cada parte del 

VV sonido. Ahora nuestro proble- 

||, эшш ныгу ma es entender cómo se unen 


dichas partes para crear el soni- 


“|е Аи. Formas de envolvente en relación con el ten 
alor de RIS. do definitivo. 
B. Е аен el alos Analicemos, pues, la natura- 
AD IES i 


—EP es la duración de la subida fijada por leza de lo que queremos oír. 


| = пуп. Nuestra idea principal es perci- 
bir un tono base. А este tono 
E MAXIMA s. ^ podemos añadirle un ruido, lo 
AMPLITUD ” « que significa SUMARLE un 

CANAL АТ у 


ruido. Cuando hablamos de vo- 
lumen, nos referimos a un valor 
máximo que pueden alcanzar 
los picos de nuestra señal de 
tono, es decir, se trata de una 
MULTIPLICACION del tono 
más el ruido por la envolvente 
de volumen (o el volumen fijo). 


Los puertos de 
entrada y salida 


Centrándonos en el Z-80, 
k ы. 3 ЕР > que es el microprocesador que 
Respuesta del oído a los distintos volúmenes. Пеуа el Spectrum, hemos de re- 
saltar que tiene dos espacios de 
direcciones diferenciados. Uno, 
que funciona más rápido, se de- 
nomina clásicamente el espacio 
d de MEMORIA. A él se accede 
T por medio de los 16 bits del bus 
de direcciones y por la señal de 
control MREQ. Es, pues, un es- 
pacio de 65536 lugares posi- 
bles. El otro espacio, al que se 
accede por medio de sólo 8 bits 
А Š x paa maoga | del bus de direcciones y de la 
señal de control IOREQ, es el 
llamado espacio de E/S. 

Es en este segundo espacio 
donde se sitüan los periféricos. 
Pero existen varios problemas 
Etapa final del mezclador de ruido, tono y envolvente. graves: ni todos los periféricos 
entienden lo que son las sefiales 


ят Í a] 


¿ONO DEL сани а 


JONO DEL CANAL € 


de control, ni todos se pueden 
conectar a un bus de datos, ni 
todos van tan rápido como el 
procesador, ni todos entienden 
las informaciones en binario. 
Para poder dialogar con este 
tipo de periféricos se inventa- 
ron los puertos e/s, que básica- 
mente son lugares donde se deja 
un dato hasta que pueda reco- 
gerlo el periférico o hasta que se 
convierta a un formato por él 
comprensible, o donde se reco- 
ge un dato cuando el periférico 
ha podido elaborarlo. En sí 
mismos son memorias de pe- 
queño tamaño (1 octeto, 1/2 
octeto) que están conectadas a 
dos buses, el bus de datos del 
microprocesador y el bus del 
periférico, llamado normal- 
mente «bus externo». 

Realizada la disquisición fi- 
losófica, pasemos a ver el fun- 
cionamiento del puerto del 
AY-3-8912, denominado A. 
Los datos intercambiados con 
el periférico se leen y escriben 
en el registro R14 (puerto A). 


Una serie de 
registros permiten 
controlar todas las 
funciones 
necesarias 

de sonido 


Este registro sólo puede funcio- 
nar de dos modos: o sólo entra- 
da o sólo salida. El hecho de 
que funcione en uno u otro 
modo viene determinado por 
unos bits del registro de control 
(R7). 


El registro general de 
control R7 


El registro R7 cumple la fun- 
ción de controlar la mezcla de 


A UN PRECIO E 


OFERTA LIMITADA: 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 
con esta funda, y beneficiese 


de un 30% de descuento 
sobre su precio normal. 


SPECIAL 


ruidos y tonos que se realiza, 
además de fijar la dirección de 
funcionamiento del puerto e/s. 
Para ello está dividido en tres 
bloques según se ve en la figura 
8: TONO, RUIDO y ENTRA- 
DA/SALIDA; los dos primeros 
formados por tres bits (uno por 
canal) y el último por dos bits, 
uno por puerto. 

Los bits 0 a 2 controlan el 
tono de cada canal del modo si- 
guiente: si valen «1», en su са- 
nal correspondiente no sonará 
el tono fijado por los registros 
de tono, en caso contrario sí lo 
hará. 

Los bits 3 a 4 controlan el 
ruido. Caso de valer «0», se su- 
mará el ruido al tono del canal. 

Los bits 6 a 7 fijan la direc- 
ción de funcionamiento del 
puerto. Si uno de estos bits vale 
«1», cada vez que se envíe un 
dato del procesador al puerto, 
éste «memorizará» el valor y lo 
mantendrá en las líneas del bus 
exterior de datos. 

Juan Zarategui 
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А veces puede existir la necesidad de 
acceder al intérprete Basic desde una 
rutina en códibo máquina sin 
necesidad de abandonar ésta. El 
programa de este artículo le permitirá 
realizar esto de forma sencilla, tal y 
como podrá ver con el ejemplo que le 
expondremos. 


El programa, paso a paso 
Esta rutina en código/máquina se basa 
fundamentalmente en la creación de un 
comando Basic para que sea ejecutado, 
introduciéndolo previamente en el área de 
editar (cuyo comienzo está contenido en la 
variable del sistema Е LINE”). 
Lo primero que realiza es limpiar lo que hay 
por encima del área de edición, incluido el 
espacio de trabajo y la pila del calculador. A 
' continuación, reserva espacio para el 


DESDE : CÓDIGO MAQUINA 


comando en el área de editar y copia en ella 
los códigos que forman el comando, 
contenidos en una tabla. 

El siguiente paso consiste en tratar la 
variable del sistema "ERR SP” para que 
pueda efectuarse el retorno a la rutina. 
Inmediatamente, se produce una llamada a 
la rutina ROM que evalúa una línea BASIC 
(en la dirección 7050 d.), y al volver, limpia 
las áreas de trabajo y comprueba si se ha 
producido un error, retornando al intérprete 
BASIC si asi ha sido. 

Los comentarios del listado fuente en 
ensamblador le informarán con más 
precisión de cada uno de los pasos del 
programa. 


Particularidades de la rutina 
La rutina es plenamente efectiva y útil si se 
llama desde otro programa en código 


f 


| máquina, y una vez resuelta, aquél seguirá 
su curso. De todos modos, no existe ningún 
inconveniente en llegar a ella desde el 
BASIC (RANDOMIZE USR 65000), sobre 
todo si desea comprobar su correcto 
funcionamiento. 
Cuando se accede a ésta, el par de registros 
HL apunta al comienzo de una tabla donde 
están introducidas las órdenes BASIC que se 
desea ejecutar. Por supuesto, deberá 
escribirlas en forma de TOKENS y códigos 
ASCII. Veamos un ejemplo sencillo para 
que lo pueda entender perfectamente. Si 
desea que se ejecute el comando: PRINT 
“N. =”; X deberá definirlo en la tabla 
mediante pseudomnemónicos DEFB con los 
siguientes datos: (debajo de cada uno de ellos 
figuran los caracteres u órdenes que 
representan). 

| 245 34 78 46 61 34 59 88 ІЗ 

B PRINT“N.=”; K 

El valor 13 del final de la serie equivale a 

ENTER y debe introducirse siempre como 

último dato. 

Hay que tener en cuenta que cuando 

representamos números, el Z-80 los 

almacena con un formato binario de 5 bytes. 

Si queremos evitar esto, la función VAL 

puede servirnos, escribiendo los nümeros de 

la forma VAL «nümero» (ej.: PRINT VAL 

«128»). 


Ejemplo práctico de utilización del programa 


Para que observe de qué forma puede aplicar 
la rutina, hemos colocado en la tabla dcl 
listado en Ensamblador, los códigos 
pertenecientes a las siguientes órdenes 
BASIC: 

INPUT a$: FOR k=VAL “1” TO LEN a$: 
POKE VAL “29999” + k, CODE а$(К): 
NEXT k: POKE k+ VAN “30000”, VAL 
0%: 

Supongamos que ha llamado la rutina desde 
su programa en código/máquina. Al 
ejecutarse ésta, entra en funcionamiento el 
comando INPUT. Después de introducido el 
texto, éste se almacena a partir de la 
dirección 30000 (el 0 final es para indicar cl 
fin de la cadena). Acto seguido, su programa 
seguirá su curso normal a partir de la 
dirección donde realizó la llamada. 


Orlando Araujo Martín 


PROGRAMA CARGADOR BASIC 


Introduce el código máquina en 
memoria, verifica los datos y realiza una 
pequefia demostración de sus 
posibilidades 


во DATA 175,24,5 
,107,44,175, 


PRINT "ER 


LISTADO FUENTE EN 
ENSAMBLADOR 


La tabla contiene los códigos de las 
siguientes instrucciones BASIC: INPUT 
a$: FOR K=VAL “1” TO LEN a$: POKE 
VAL "29999" + K, CODE a$ (K): NEXT 

К: POKE K + VAL “30000”, VAL “0” 


10 ORG, 65000 
20 ENT $ 
25 LD HL,TEXTO ЗАР 


UNTA AL CODIGO BASIC SITUADO EN 


30 CALL CODIGO зы. 
АМПА А LA RUTINA 

40 RST 8 3RETO 
RNO AL MODO COMANDO 

50 DEFB 255 

60 CODIGO РОЗН HL 

70 CALL 5808 ¿USA 


UNA RUTINA ROM PARA LIMPIAR BUFF 
ER 


O EN EL BUFFER DE EDICION 


160 SET T7,CIY+48) 

170 LD CIY40),255 311 
MPIA ERRORES ANTERIOKES 

180 LD (CIY+10), 1 ES 


TABLECE LA VARIABLE NSPPC A LA P 
RIMERA SENTENCIA 


190 LD HL,(23613) ;GU 
ARDA EL VALOR DE 'ERR SP' PARA 

200 PUSH HL ¡RE 
CUPERARLO MAS ADELANTE 

205 LD HL, VOLVER 

207 PUSH HL 

210 LD (23613),SP ¿CA 
ЕСА EL STACK POINTER ЕМ “ЕКЕ SP” 

220 CALL 7050 ¿LL 


AMADA A LA RUTINA DE EVALUACION 
DE LINEAS BASIC 


230 POP НЕ $51 
VOLVEMOS AQUI DESECHAMOS ESTE У 
ALOR 

240 VOLVER POP HL ¿SI 


HAY UN ERROR SE EJECUTA ESTA SU 
BRUTINA 


80 LD HL, (23641); АРУ 250 LD (23613), HL 
NTA A LA VARIABLE DEL SISTEMA 'E 260 CALL 5808 ¿LI 
LINE” МРТА LOS BUFFERS 
90 LD BC, 130 ¿RES 270 LD A,(23610)  5SI 
ERVA 130 BYTES EN EL BUFFER DE E HA HABIDO UN ERROR EVALUA 'ERR 
DICION NR” 
100 CALL 5717 ¿LLA 280 СР 255 351 
МА А LA RUTINA 'HAKE КООМ' EL CONTENIDO ES 255 NO HAY ERRO 
110 INC HL R 
120 EX DE,HL ¿CAR 290 ЇР. NZ, 4867 $51 
СА HL EN РЕ PARA ЕЁ LDIR NO,SALTO AL BASIC 
130 POP HL s APU зоо RET  ;VUELVE AL PRO 
МТА AL COMIENZO DE LA TABLA GRAMA QUE LLAMO LA RUTINA 
140 LD BC, 128 3LON 310 TEXTO DEFB 238 :ІМРОТ 
GITUD HAXIMA DEL TEXTO 525 DEFB 97 за 
150 LDIR ¡CARGA EL TEXT 720 DEFB 36 i$ 
AA 


GUSANEZ p Te l Tis 


&qQUE № ABES QUÉ Es 


ON SISTEMA OPERATIVO D | ES "N-- ssroo. UN Эт 


RV) 


QUE.. 


UES UN SISTEMA OPERATNON| 


MAS TORPE T 
QUE ÉL 


(cada tapa es para 6 ejemplares) 


$0$ EJEMPLARES DE 


Todospectrum 


SIN NECESIDAD DE ENCUADERNACION 


guis 
PRECIO UNIDAD 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envielo a: 


Bravo Murillo, 377 
Tel. 733 96 62 - 28020 MADRID 


Por favor епмепте tapas para la encuadernación de mis 
ejemplares de TODOSPECTRUM, al precio de 650 pts. más gastos de envío 


El importe lo abonaré 
О POR CHEQUE О CONTRA REEMBOLSO O CON MI TARJETA DE 
CREDITO O AMERICAN EXPRESS О VISA D INTERBANK 
Número de mi tarjeta: СТТ 
Fecha de caducidad .. Firma 

NOMBRE 

DIRECCION 

CIUDAD 

PROVINCIA 


DE CORREOS 


Dirige tus cartas a: 
Todospectrum 
Bravo Murillo, 377, 5.°-А 
28020 Madrid 


LENGUAJE MAQUINA, 
FUNCIONES Y AJEDREZ 


Dada la falta de una sección 
de «Preguntas y respuestas» en 
el suplemento ОТ, MAGAZI- 
NE ha creído conveniente remi- 
tir mi carta a la que trata sobre 
cuestiones del Spectrum. Qui- 
siera que me respondieran a lo 
siguiente: 

¿Existe alguna publicación 
sobre el lenguaje máquina del 
QL? 

¿Cómo podría introducir des- 
de el teclado una función cual- 
quiera sin necesidad de cambiar 
una línea del programa? (Esto 
vale también para el Spectrum, 
pues tuve el mismo problema 
conél). 

Tengo el programa de ajedrez 
de PSION, y mi problema es 
que cuando al final de la carga 
me pide que inserte el cartucho 
original para iniciar el juego, re- 
sulta que no funciona. El micro- 
drive funciona perfectamente, y 
puede asegurar que no he mane- 
jado incorrectamente el cartu- 
cho, sino sacar copias de seguri- 
dad y cargar desde ellas, pero lo 
compré hace 6 meses y temo que 


no conservo la garantía. ¿Mere- 

ce la pena ir al establecimiento 

a que me lo cambien o hay algu- 
na solución mejor? 

José L. Collado 

Zaragoza 


Debido al poco volumen de 
cartas referentes a QL que Пе- 
gan a la redacción, no creemos 
que sea necesaria la creación de 
una sección de este tipo en el 
suplemento. Sin embargo, in- 
tentaremos contestar desde 
aquí a todas las cartas que Пе- 
guen a TODOSPECTRUM, se 
refieran a uno o a otro ordena- 
dor. 

Síexiste un libro que trata del 
lenguaje máquina del 68008 en 
el QL. Se trata de Assembly 
Language Programmilng on 
the Sinclair QL de Andrew 
Pennell y la editorial inglesa 
Sunshine Books, aunque, como 
habrás adivinado por el título, 
está escrito en inglés, y, por lo 
que sabemos, no hay ningün in- 
dicio de que vaya a ser traduci- 
do al castellano próximamente. 
Aunque menos especifico pue- 
de serte muy útil ОГ, Progra- 
mación Avanzada de Adrian 
Dickens y la editorial (esta vez 


espafiola) RA-Ma, que comen- 
ta más superficialmente las ins- 
trucciones del assemble 68008 
pero contiene importantes da- 
tos sobre el sistema operativo 
QDOS, mapa de memoria, 
traps, vectores, etc. 

Tanto en el QL como en el 
Spectrum, las funciones defini- 
das por el usuario deben estar 
incluidas dentro de los listados 
para que puedan ser ejecutadas. 
Tienes por tanto dos opciones, 
o encontrarles un hueco dentro 
del BASIC o prescindir de ellas. 

En cuanto a tu problema con 
el Chess, se trata sin duda de 
que el cartucho original se ha 
deteriorado por una u otra cau- 
sa. Prueba en la tienda donde lo 
adquiriste por si pudieran cam- 
biártelo, quizás aún lo consigas. 


U.D.G.s 
DISCRIMINADOS 


Poseo un ZX Spectrum de 
16 K, y me gustaría saber por 
qué no funciona la función 
SCREENS (X, Y) cuando se 
trata de identificar un caracter 
definido por el usuario, en cam- 
bio cuando se trata de hacer lo 
mismo con un caracter predefi- 
nido por la máquina todo funcio- 
na a la perfección. ¿Cómo po- 
dría conseguir utilizar esta fun- 
ción con caracteres definidos 
por el usuario? 

Ferrán Font 
Badalona 


Suponemos que los señores 
que programaron la ROM del 
Spectrum sabrán los motivos 
que les llevaron a «dejar a me- 
dias esta función, incluida 
la errata de salida de la ruti- 
na de la ROM SCANNING- 
SCREENS, que, al hacer un 
salto a STACK-STORE-$ еп 
lugar de el correspondiente 
RET, produce un almacena- 


miento por duplicado de la ca- 
dena resultante. 

Pero, como de nada vale la- 
mentarse, aquí tienes una ruti- 
na en código máquina 
(SCR$_G) que te resolverá el 
problema. 

Pokeadas las coordenadas X 
e Y en ORG«1 y ORG+2, la ru- 
tina podrá ser llamada a la di- 
rección que ocupe (en el listado 
65280). El código del carácter 
que se encuentre en la posición 
señalada quedará еп el par BC, 
por lo que puede utilizarse di- 
rectamente de la forma que más 
nos convenga, por ejemplo: IF 
USR xxxxx 2 144 THEN GOT 
nn (siendo xxxxx la dirección 
donde coloquemos la rutina). Si 
el caracter no es reconocido la 
rutina devolverá un cero. 

Si no dispones de ensambla- 
dor ni conocimientos de este 
lenguaje no debes preocuparte, 
puedes teclear el programa car- 
gador BASIC, que se encargará 
de la carga y comprobación de 
las líneas DATA. Caso de que, 
una vez ejecutado, aparezca el 
mensaje «ERROR en DA- 
TAs», deberás revistar los valo- 
res de estas líneas y repetir la 
ejecución. Una vez pasado este 
test, y antes de cjecutar el códi- 
go máquina, deberás salvar el 
programa en cinta con: 
SAVE "NOMBRE" 
65280,73 

Cuando quieras volver a car- 
garlo deberás teclear: 

CLEAR 65279: LOAD 4” 
CODE 


CODE 


10 

29 3 SCREENS (х,у) DE 0005 
39 

40 ¡ENT: BC=COORDENADAS 

50 3510: C=CODIGO UDG 0 O SI 
ӛз NO ENCONTRADO 
20 

199 оке #FF00 

m 

120 LD Bc.s0000 


180 зск®_в 

m LD ні, (#5C7B) 

150 ED AC 

100 RRCA 

120 RRCA 

180 RRCA 

190 AND WEo 

200 хов B 

210 10 EA 

220 їр ac 

236 AND нів 

240 XR нао 

250 LD D.A 

260 Ор він 

270 scRsGi 

280 PUSH вс 

299 PUSH DE 

зоо FUSH HL 

310 LD A, (DE) 

EM XOR (ML 

330 JR 2.508862 

зао Inc А 

E ІН №.508$04 

300 DEC А 

370 scRs62 

зво LD са 

390 ТЕЛЕ 

300 SCRSG3 

410 INDOD 

420 INC HL 

430 LD А, (E) 

"m хов (ML) 

450 хок 

40 JR  NZ.,SCR$G4 

470 DINZ SCRsG3 

480 FOP BC 

490 POP RC 

500 POP BC 

510 LD  A,Wso 

520 sus в 

530 Ср BC, #0001 

540 RST #30 

550 LD (DEIA 

өз JR ScRsë5 

520 scnso4 

E POP HL 

570 LD DE.40008 

eoo ADD НЕЕ 

elo Pue 

E Por 

asu DINZ SCReGI 

640 ТИГИ 

азо зскеоэ 

E ADD A,W25 

679 LD c 

ово RET 
LISTADO2 


10 REM cargador SCR$ б 


20 LLEAR 65229 

39 LET ceo 

40 FOR п=0 TO 72 

50 READ а 

60 LET c=c+a 

70 POKE eS280+n,a 

80 NEXT n 

90 PRINT FLASH 15" ERROR EN DA 
Th * AND C1>6735 


110 DATA 1,0,0.42.123 
120 DATA 92,121,15,15 

130 DATA 15,230,224, 168 

140 DATA 95,121,230,24,238 
180 DATA 64,82,6,24,197 

160 DATA 213,229,26,174,40 
170 DATA 4,60,32,26,61 

180 DATA 79,6,7,20,35 

190 DATA 20,174,169,32,15 
200 DATA 16,247,193,193,193 
210 DATA 62,128,144,1,1 

220 DATA 0,247,18,24,11 

230 DATA 225,17,8,0,25 

240 DATA 209,193,16,211,42 
250 DATA 219,198,37,79,201 


SIN ANIM 
DE CRITICAR 


Muy Sr. mío: 

Soy asiduo lector de la revista 
TODOSPECTRUM. y habiendo 
visto en el número 16, correspon- 
diente a diciembre, el anuncio de 
comercialización del programa 
Starmouse (dibujando con ratón), 
y dado el interés que para mí te- 
nía, a través de la firma El Corte 
Inglés de Oviedo, lo pedí. Tardó 
muy pocos días en llegar a esta 
ciudad. Una vez cargado en el 
QL, resultó ser un programa de 
gran utilidad. 

El gran fallo, que es imperdona- 
ble, y que fue motivo de la devo- 
lución del importe de mi compra, 
después de infinitas gestiones con 
la firma Puricorp de Guadalajara, 
con Investrónica, y con los auto- 
res del programa, es que al pare- 
cer sólo se puede imprimir lo pre- 
sentado en la pantalla con un úni- 
co tipo de impresora, cuya marca 
no tengo ningún interés de cono- 
cer. Mi impresora es una ADMA- 
TE DP-100. 

Si Іс parecc oportuno puede 
transmitir el contenido de este es- 
crito a los lectores de sus presti- 
giosa revista, para que nos les 
pase lo que a mí. Y menos mal, 
que en mi caso, la firma comer- 
cial El Corte Inglés, dada su sol- 
vencia, no puso el menor incon- 
veniente en la devolución del im- 
porte, y fue ella la que investigó 
en las firmas antes mencionadas 
sobre la incongruencia del caso. 

El problema concreto que apa- 
rece con las impresoras «non gra- 
tas» es que se saltan un renglón y 
medio, que queda sin entintar. 
Como muestra le adjunto un re- 
corte de lo que en pantalla eran 
círculos rellenos de color o trama. 
Con el resto de líneas, rayados, 
etc., trazados con el ratón, ocurre 
exactamente lo mismo, salen en 
franjas con intervalos de renglón 
y medio en blanco. 

Sin otro particular, y rogándole 
sepa disculpar el haberle sustrai- 
do parte de su tiempo, quedo suyo 
affmo. 

V. Enríquez Fernández 
Oviedo 


A 


accesorios, por 19.000 р 
tas. También vendería > 
face programable de soni 
joystick. Teléfono: 


2638 39. Murcia. 


Vendo calculadora Ca- 
sio FX-3600P, programable, 
científica, análisis regresión, 
etcétera. Además regalo jue- 
gos actuales. Todo por 7.000 
pesetas negociables. Tam- 
bién video juegos Atari por 
10.000 pesetas con ocho car- 
tuchos de regalo. Alejandro 
Esteve. Avda. Burjasot, 112 
9.46009 Valencia. Teléfono: 
(96) 349 76 04. Horas comi- 
da. 


Se venden programas 
para Spectrum, por cambio 
de ordenador. Escribid a 
Juan Carlos Hernández. Ca- 
lle Condado de Treviño, 75, 
6-dcha. Miranda de Ebro 
(Burgos). 


apte 


¡ATENCION! Con el ejemplar de MARZO 86 
PC MAGAZINE le regala un DISKETTE DEMO 
DE PC-TEXT-PC-BASE. 

(Obsequio de Quinta Generación) 


Además en este nómero: 


GRAFICOS: 

Hardware y Software para hacer que el 
ordenador personal transforme en imágenes 
sus ideas y cifras, etc. 


Compatible 
SPERRY PC/HT 


Software 
ENCORE! HOJA FINANCIERA 


Programación 


VTREE, UN ARBOL DE VERDAD 


c 
ESTOS TEMAS Y MUCHOS MAS EN EL NUMERO DE MARZO 
Е  _ERÍqOqOe ns 


¡COMPRELA HOY MISMO! 
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QL QUILL. TRATAMIENTO DE TEXTOS 


QL Quill muestra en pantalla 
aparecerá su escrito cuando esté im] 
pesadas memonzaciones de coman 
tiene siempre todo lo ne: 
negrita, corte, una, fije tabul; g 
sobreescriba... después de todo esto su QLle dirá, 
además, cuántas palabras hi 


ОГ ABACUS. HOJA ELECTRONICA 
DE CALCULO 


Este programa ha si 
hojas de cálculo de ot 
escriba simplemente "costes de personal 
o "pers" para encontrar esa celdilla. QL 
le ayuda a decidir lo que һау que hacer mediante 
diferentes sugerencias, dentro de una amplia да! 
posibilidades. Podrá, además, crear ho) 
de cálculo con más de 6.000 celdas individuales, 

Podrá mostrar ventanas múltiples, variar la distancia 
entre columnas. 


iperadc 
ordenadores. Con QL Abacus 
personal" 


[3 


Tomás Bretón. 60 Tel 


Camp 80 Tel ( 


QL ARCHIVE. BASE DE DATOS 


Organizar su agenda o poner al día su fichero se 
convierte en un trabajo agradable. QL Archive resuelve 
rápidamente su problema con un sistema de archivo 
de aran facilidad de uso, usando un lenguaje aún más 
sencillo que el BASIC. 

Con un mínimo de práctica puede crear desde un 
simple directorio a una extensa base de datos. Podrá 
determinar relaciones, extraer datos, reorganizarios, 
hacer cálculos estadísticos y contables. 

Con QL Archive podrá crear un formato persoralizado 
para sus informes, 


е construir tablas de valores o enfrentarse 
s dudosas antes de ver algún resultado. 
podrá desde el principio crear gráficos 
Inmediatamente creará diagramas de barras, filas, líneas 
rellenas, sectores, barras sobrepuestas. 

Todo ello simplemente pulsando una tecla. 

Introduzca textos donde quiera. Dentro o cerca de su 
diagrama. Más aún, mueva el texto por la pantalla para 
ver dónde queda mejor... en el color que prefiera. 


investronica 


